(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     95320,       2039]
NotebookOptionsPosition[     93423,       1976]
NotebookOutlinePosition[     93770,       1991]
CellTagsIndexPosition[     93727,       1988]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Reading in the Human Data (with Torso looking at x-position of the Pcom). \
\>", "Section",
 CellChangeTimes->{{3.5128450479344206`*^9, 3.512845052966709*^9}, {
   3.5158619787014647`*^9, 3.515861985560857*^9}, {3.5159722770133495`*^9, 
   3.5159722789304595`*^9}, {3.5159869386879497`*^9, 3.5159869421171455`*^9}, 
   3.51598700443871*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Torso", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_torso.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sslope", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_sslope.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSslope", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_nsslope.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sknee", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_sknee.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSknee", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_nsknee.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hippos", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_hippos.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pcom", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_compos.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Torso", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Sslope", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "NSslope", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Sknee", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "NSknee", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Hippos", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Pcom", "]"}]}], "Input",
 CellChangeTimes->{{3.512572220188236*^9, 3.512572253053116*^9}, {
  3.512572497613104*^9, 3.51257259965094*^9}, {3.512572636425043*^9, 
  3.5125726369180717`*^9}, {3.512678975859057*^9, 3.5126789764556646`*^9}, {
  3.515859570235708*^9, 3.5158595963101997`*^9}, {3.5158600828700294`*^9, 
  3.515860083129044*^9}, {3.515940229501178*^9, 3.5159402308852572`*^9}, {
  3.515971338364662*^9, 3.5159713405557876`*^9}, {3.5159715473636165`*^9, 
  3.5159715497667537`*^9}, {3.5159869101293163`*^9, 3.5159869832514987`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "251", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.515987399113284*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.515987399115285*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "251", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.515987399120285*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.515987399122285*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.515987399127285*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991302853`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"1", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"1", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"1", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"1", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"1", ",", "5"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "5"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "5"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "5"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "5"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "A", "]"}]}], "Input",
 CellChangeTimes->{{3.512658816121793*^9, 3.5126588368718224`*^9}, {
  3.512658874581875*^9, 3.512658887041892*^9}, {3.5126593958726044`*^9, 
  3.512659455312688*^9}, {3.51267806388017*^9, 3.512678067501687*^9}, {
  3.515861683963607*^9, 3.5158616975363827`*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"a", "(", 
        RowBox[{"1", ",", "1"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"1", ",", "2"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"1", ",", "3"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"1", ",", "4"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"1", ",", "5"}], ")"}]},
      {
       RowBox[{"a", "(", 
        RowBox[{"2", ",", "1"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"2", ",", "2"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"2", ",", "3"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"2", ",", "4"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"2", ",", "5"}], ")"}]},
      {
       RowBox[{"a", "(", 
        RowBox[{"3", ",", "1"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"3", ",", "2"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"3", ",", "3"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"3", ",", "4"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"3", ",", "5"}], ")"}]},
      {
       RowBox[{"a", "(", 
        RowBox[{"4", ",", "1"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"4", ",", "2"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"4", ",", "3"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"4", ",", "4"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"4", ",", "5"}], ")"}]},
      {
       RowBox[{"a", "(", 
        RowBox[{"5", ",", "1"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"5", ",", "2"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"5", ",", "3"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"5", ",", "4"}], ")"}], 
       RowBox[{"a", "(", 
        RowBox[{"5", ",", "5"}], ")"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.5126594439326715`*^9, 3.5126594556726885`*^9}, 
   3.512677174513712*^9, {3.5126780642077703`*^9, 3.512678068016716*^9}, 
   3.5126922226537113`*^9, 3.5126922847360215`*^9, 3.512692717491288*^9, 
   3.5126991093026023`*^9, 3.5127294776594486`*^9, 3.5127338883329725`*^9, 
   3.5127519833368855`*^9, 3.5128254529254847`*^9, 3.512872541217947*^9, 
   3.51290855119003*^9, 3.512925090143004*^9, 3.513076488172517*^9, 
   3.5133458612617373`*^9, 3.5135159025778656`*^9, 3.5157999934731503`*^9, 
   3.5158012187502327`*^9, 3.5158021107732534`*^9, 3.515861581375739*^9, {
   3.5158616777392507`*^9, 3.515861698073414*^9}, 3.51594024824125*^9, 
   3.5159403027653685`*^9, 3.5159403534302664`*^9, 3.515971602795787*^9, 
   3.515972791695788*^9, 3.515987031271245*^9, 3.515987399194289*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5126778109641595`*^9, 3.5126779758710814`*^9}, {
   3.512678031036948*^9, 3.51267803337522*^9}, 3.512683127872154*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Data", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"HipData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Last", "[", "Hippos", "]"}], ",", 
       RowBox[{"First", "[", "Hippos", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSslopeData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "NSslope", "]"}], ",", 
       RowBox[{"Last", "[", "NSslope", "]"}], ",", "2"}], "]"}]}], ";", 
    RowBox[{"SkneeData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "Sknee", "]"}], ",", 
       RowBox[{"Last", "[", "Sknee", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSkneeData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "NSknee", "]"}], ",", 
       RowBox[{"Last", "[", "NSknee", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PcomData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "Pcom", "]"}], ",", 
       RowBox[{"Last", "[", "Pcom", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tf", " ", "=", " ", 
     RowBox[{"Max", "[", 
      RowBox[{"Last", "[", "Hippos", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "Parameters", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HipParameters", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "1"}], "]"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSslopeParameters", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"2", ",", "5"}], "]"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SkneeParameters", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"3", ",", "5"}], "]"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSkneeParameters", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"4", ",", "5"}], "]"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PcomParameters", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "1"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "2"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "3"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "4"}], "]"}], ",", 
       RowBox[{"a", "[", 
        RowBox[{"5", ",", "5"}], "]"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Parameters", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"HipParameters", ",", "NSslopeParameters"}], "]"}], ",", 
           "SkneeParameters"}], "]"}], ",", "NSkneeParameters"}], "]"}], ",", 
       "PcomParameters"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "Models", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HipModel", " ", "=", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"1", ",", "1"}], "]"}], "*", "t"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSslopeModel", " ", "=", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"2", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"2", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"2", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"2", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"2", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"2", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SkneeModel", " ", "=", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"3", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"3", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"3", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"3", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"3", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"3", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSkneeModel", " ", "=", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"4", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"4", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"4", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"4", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"4", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"4", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"TorsoModel", " ", "=", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", "t", "}"}], ",", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"5", ",", "1"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"5", ",", "3"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"5", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
         RowBox[{"a", "[", 
          RowBox[{"5", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PcomModel", " ", "=", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"5", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"5", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"5", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"5", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "Fits", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"HipFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"HipData", ",", 
      RowBox[{"HipModel", "[", "t", "]"}], ",", "HipParameters", ",", "t"}], 
     "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"NSslopeFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"NSslopeData", ",", 
      RowBox[{"NSslopeModel", "[", "t", "]"}], ",", "NSslopeParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"SkneeFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"SkneeData", ",", 
      RowBox[{"SkneeModel", "[", "t", "]"}], ",", "SkneeParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"NSkneeFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"NSkneeData", ",", 
      RowBox[{"NSkneeModel", "[", "t", "]"}], ",", "NSkneeParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"PcomFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"PcomData", ",", 
      RowBox[{"PcomModel", "[", "t", "]"}], ",", "PcomParameters", ",", "t"}],
      "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "HumanParameters", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HumanParameters", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Parameters", "/.", "HipFit"}], "/.", "NSslopeFit"}], "/.", 
        "SkneeFit"}], "/.", "NSkneeFit"}], "/.", "PcomFit"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HumanFit", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"HipFit", ",", "NSslopeFit"}], "]"}], ",", "SkneeFit"}], 
          "]"}], ",", "NSkneeFit"}], "]"}], ",", "PcomFit"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "Plots", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "HipData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"HipModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "NSslopeData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"NSslopeModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "SkneeData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"SkneeModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "NSkneeData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"NSkneeModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "PcomData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PcomModel", "[", "t", "]"}], "/.", "PcomFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5126789941819353`*^9, 3.5126790075318193`*^9}, {
   3.51267905004961*^9, 3.5126790700041466`*^9}, {3.5126791468132076`*^9, 
   3.5126791706718807`*^9}, {3.512679291568577*^9, 3.512679486222409*^9}, {
   3.512679517466573*^9, 3.512679664544032*^9}, {3.512679698476902*^9, 
   3.5126797097661114`*^9}, 3.5126797845186925`*^9, {3.5126827119518967`*^9, 
   3.5126827126609373`*^9}, {3.512683020982776*^9, 3.5126831381761436`*^9}, 
   3.512683175569936*^9, 3.5129250245182505`*^9, {3.512925066618658*^9, 
   3.512925083533626*^9}, {3.5129251240129414`*^9, 3.512925142324989*^9}, {
   3.512925200758331*^9, 3.512925214415112*^9}, {3.5129252542353897`*^9, 
   3.5129252585066338`*^9}, {3.512925514140255*^9, 3.512925553720519*^9}, {
   3.515859655541588*^9, 3.515859793325468*^9}, {3.5158601025971575`*^9, 
   3.5158602237340865`*^9}, {3.515860261925271*^9, 3.5158602695787086`*^9}, 
   3.5158603314532475`*^9, {3.5158604439816837`*^9, 3.515860468032059*^9}, {
   3.51586055003675*^9, 3.5158606061069565`*^9}, {3.5158607430347886`*^9, 
   3.5158608047923207`*^9}, {3.515861088250534*^9, 3.5158611290048647`*^9}, {
   3.515861477913821*^9, 3.5158615212513*^9}, {3.5158616552149625`*^9, 
   3.5158616659705777`*^9}, {3.5158617400318136`*^9, 
   3.5158617655192714`*^9}, {3.515986929792441*^9, 3.515986942101145*^9}, {
   3.515986983264499*^9, 3.5159870044177094`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "(", 
     RowBox[{"1", ",", "1"}], ")"}], "\[Rule]", "1.19689396035823`"}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.5159873992372913`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "1"}], ")"}], "\[Rule]", "0.20214668746590925`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "2"}], ")"}], "\[Rule]", "7.840374588741148`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "3"}], ")"}], "\[Rule]", "0.22483245436904015`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.8069757285872418`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "5"}], ")"}], "\[Rule]", "0.18712786224886793`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.5159873992592926`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.0828259043763153`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "2"}], ")"}], "\[Rule]", "13.315981803707265`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "3"}], ")"}], "\[Rule]", "0.20729365656915424`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "4"}], ")"}], "\[Rule]", "4.154819403051306`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "5"}], ")"}], "\[Rule]", "0.2573791697685864`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.515987399278294*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.3808535485970228`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "10.979481912107921`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "3"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.19665480379455527`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.42141500655251124`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "5"}], ")"}], "\[Rule]", "0.6584527300961083`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.5159873993042955`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "3.2612384489726334`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "8.089020891433405`*^-8"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "3"}], ")"}], "\[Rule]", "5.819659430757449`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "4"}], ")"}], "\[Rule]", "0.37746715739520986`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "5"}], ")"}], "\[Rule]", "3.023429559876836`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.515987399324297*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxdl2dYFFcfxZcgdhNUTFQiYoktxIixgKKHgD0kYo0tCAZRE8UuoAjYFbsi
gqCioCBYQHqLCyy9bGF7nV3QgKJggMQgmndm7/30ni8887Aze+f+z++cu6M2
7Vy++RMejzfQgsfj/v6/vDeaBd6bHV4xxT7YZL7ciTBhVrCtbDdOn+IUAN6r
GOciw0GQz4eC1z1iTGbuEdyM4XQMvHMBW15PPEk/fwp8L9+gSbfDsW8vp7Pg
Z/zSfHXdRXr/RYS9O/Pt8sTLuH+P02Xwb0Wdr5oegVjz867Ce1HKtKJvInHl
Mqdr7PN/yFgWGEWffx085y3bcg7dQMhhTtEIs1HltFbG0u+LgXfFgotH3G7j
t22cboIJTr957WEc/f7b2BUh6JEjvYOUZE5xsF4XOjji37t0PXfg+aDnh+8d
E3AnjtNdhKX5OizecI+uLx6utsOjXgTcx/VITgnw9LlitEtOpOu9B1eT2PHT
N0k4f47TfVh3RK419Uim609Em0/CQsmMFBw7yikJri0DQodvfEjf5wFEy3TX
fSIfISiQUzLC5F6jXpU/pu+XAu9Pz+z57+MT7PTn9BCiNfHx2TGp9H0fYYp/
8tDH7mnwNesxlL9bDwpvTKPv/wSXbAszcg49xTdmpcL67dX4dNt0uh+pWPTP
tZjZz9Ixwaw0pFrknRiwNoPuTxqsq3J5//EyMcasp0hNClU9SMik+/UUOf4R
n7+engU7s9LRdn6/Q50+i+5fOgKv3p16a1c2hpmVgaEJt5Ya7XPofmbA+sS+
CROyc2BjViZ6B4fYFa3KpfubiUvfjF3nMSAP1p9xyoJ9+8+GhVF5dL+z4Frt
s3z2jHz0NSsbbRV/bUzV5IPYMxtDT29oig0ugJVZOYg7/LSRN6YQ5nEczYFn
s/f4AEEhCCW5EG1O2vJs7x8wj+dwLuKSjwTJBz/D+y5OuQjz6m6akvoM5nEF
5mHal9/1/8KBj787OeXBxV9bHR3Mh3l8e/PhHTj2n1fVfLxt45QP0e/W7cPs
imAep38BXJKFGz/dXYSWV5wKkPBPr/OJlUUwj3dbISLmZfVw61OM5hecCmGd
MmmcwK8YfuZ5/wGngV9YPsooRoOR0x9ojL/glNi7hM7/GS7tDq0atKEEBi2n
Zzg9YvqZ6EclmGz2Ax/vlvj4jbAUkO//nb2e3+/rr1YJqD/46H7gcPBYrID4
rZkP3iGXD3FtAkw0+6UIvRdapq1zL8Wf3PL8ihA3+Oby01dLqX+KwLTb+I18
XorN3HIbi9ARdT3C0rkMY81+KsbDJxcCQs6UwcQt36cYFR6RdkJNGe6a/VWM
4HDlWatp5eR9DMWwKbv5bnNoOUaa/VYCjzmei87XlUPHvR77nh1jtqa0j6ig
eVWCJN8rfTJ3VGD9OlbqEqwJ6PuiqbgCw81+FLBzPx7fNLgSSgWrnwVYk36o
ot/mSkSZ/SmAyN3XOT69EqtXsZIJIHjMX5JsVYUhZr+WgvF5XtW+ugr1ElbL
S+Ft+ej9vHtV1L+lSEpw77TurMIyT1aiUkwJGSc+M7+a+rkMTGt92uXr1RDW
svqxDL1FLbx/n1dTf5fB6WZB2ImZNfD4gVV1GZqW145LOl1D/V6OXR3qletk
NaiqYLWoHGsOLfGZP66W5k85y//6Ffb+tVi4gFVZOaJCRvc8l1dLeajAvjMn
B3T3q0NpCSv3Csxz9RNcXldH86oC263LooOS6uD2PauiCtZPbXs+76qjvFTC
pmfGPeuFQvD/YDW3EvN02dlPIoU03yphnZ9TXsQIMceFVUElhgveMiVDReg2
81SJWb/27v7VVYT8XFbOVShrKvuY4CeieVgFk+eDAJuzIjjNZJVdheDGtqqR
aSL8Y+atCrOEp3xD5CJkZbCaVo2k4bI+t7pEND+rcavn6JfN9mJ8N5XV02ok
79lcq1wsxl9mHqvRtMzGS7hDjLQnrL6tQcH6h8qiy2Kat+y+Oi+YMjBbTHh5
VINpuc/36tVivDbzWoPY2s+/tLGUEF4m1WK54ULfugkSms+1KO6add7bU0J4
SaqF/1+ZQRkBEsLLi1q4lccea7kpQSKHy1fsvtZaTbUQSCjfdXinFj/P+VNC
eIln52Af0pnTv57yXofRPbxHdTnWkzy2F2JX2oPes1fXU/6FaHEb/PZlUD3J
51tC8NbG2cXeqSe8aIWIDRz6rk5QT/w3QIQOj5hx6hf1NB9ECHQUVVb0kRI/
eogQZrez75DxUpoXImxlVrfKF0uJP9k5xe4+6v7JVinNDxG2F3rsLj0pJX6t
EqFGNuznmBQpzRN2roEzvB1rpMS/vcWwcS/8WvxaSvNFjJx7kWe7+smInxeK
0bvg84t2U2Q0b8QIPLpI83SFjPj7pBgO8+s+1B+Q0fwRQ6kbaJV9Q0b8XipG
LP9d/tJCGc0jMS5dGOf5kpFBwPmfnaPT0oGtOks5zScJkkTuW3aNlxMe3Njr
/dolwz3kNK8kOL60LlKyQ074OCJB46Q41egIOe1HCWoa73Y9zpLDgsOFL4HA
yhi0USOnecbOdXNatPNHOZ5x/HyUoOlyeZzzaAXNt3o0ztozW+GuIDzNqcdD
yw2GFb8raN7Vw75kavbfpxTg8HIJrkdTY0VmdbKC9m89uqvbm1W1CsJbXj0q
BH/n3HiroHlYj6TRnduO2yiRx/H3bz2kBxa9nztTSfNRipxw+5Ol65WERycp
MgYojqjClDQvpZA+7vjXMVEJDs+ZAVKEuX1b2VqppPkphW/BsVd7WpSE10wp
zoX23cQboKJ5KkVTXIO1fooKmRy/HVL0HnTwN7eVKpqvMvTo77XsiwMqwvN3
MkQNOTrmSZSK5q0MY/3PRs8qVIHDe+oeGZhNyk3xjIrmL+ubt6/43lZqwnuq
DE5tLrVHxqtpHrNz37Z/bucPaqRy/LfKYG8x/+v2HWqaz3Ks9P3zWnWEmuTB
ZDlyeJ/8eCpbjTpzXssR2FE3rEWlJrywPojdcdF23Hs1zW/2/sZlm/h2GpIX
KXLMsxpUvHiBhua5HMwwjzThFg3h5aUc2w+e/LDqlIbmuwIOudtu30nREF4m
KtCyfOVnf9ZoUGnOe3bOT081dL3REF62KsC3zOTnD9TS/Feg/5RhMydN16KJ
4+W+Akovd2Xoai3tAwUeLvy5uzNAS3h5rkDS8Yx0QbSW9gM752qDnzxfS3gZ
q0TE5JTfrui0tC+UmLc4duj2/7SEl1+VOG4rWxA1Skf7Q4mkiQHd9910JK/u
KLFh//lfvH7V0T5RYmvX8a5eJ3SEF0aJih2PLKcn6Gi/qODQFBGnKtURXkaq
0OYvOjCpWUf7RgVl37EDlX30hBcvFaz35R5a6qCn/aNCUv7kAvFPesJLLHt/
fsKMQzv1tI9UEFROXBZzUU940ajQ4Se6/PGJnp73VPBo65ViI9ETXoar2fPY
nJ96dOppX6nBP5w9b99gA+FlrRrdwc+GwtlA+0sNUcClFOVaA+Hluho22zPH
CA8aaJ+p4RSeNa5XjIGch+VqxBnntH9faKDnSTWkrbLxN9UGwssQDZgw06jQ
9wbadxrs8399+NhnDOFlpQZzNUd00SMZ2n8arElyb+s5lSG8XNHgeOJ4L5kb
Q/tQg7/vR+XNXs0QXsQaRFpGv23wY2g/stdj3o8KDmQIL9ZamPL2Www4zdC+
1GLXDdGoadEM4WWpFncjNs9UpjC0P7VwvX1iY59ChvByXoutE+xKnYQM7VMt
+I4R9geNDOGlRovJlyK+D29naL9qwWtuXBDQ00h46afDx7MDZ31ma6R9q4Pg
TOSasd8Y0Y/DZYkOF7J8YxpcjbR/dXBZtX/u9RVGwstpHYb/dy0kzM9I+1iH
GYc3fBIfZCS8lOswa8X7ZNU5I+1nHSYtTEz9eNsIDpcFPfXwKvuln1O6kfDy
lR5uiVu/mlJuRC8Ol/l69D9xbHezykj7W491l/YWfXxjJLwc0+OotNfE+xYm
2ud6SIW+V4IGmXCcw6VYD0/X1mCPCSba73rkPH8Y7jLbRHixMGCC4ru2OUtN
tO8NcJiwJGHwJhPpF1cD3o0R+1wONNH+N+BWbYjbL+Em0i8h7P/DHQVzb5no
ecCAn1qP2F9/aiK8sL4r3mW1/k2piZ4PDLD77daHOwoT6ZduA0I6Py34qcVE
zwusT7IsHD9YNJD7RzAQPCpvGTmogZ4fGPb3Yrdl+fgG8jwXBlGeL0ctdm6g
5wkGEr9kF+GPDYTHDQxejL2XPGRjAz1fMNh0Nwq2BxoIn4cYBD8UXnU82UDP
GwyqwlP8mmMaCK83GJybbnsg7kkDPX8wcDhdai3kN+B/Cd+NAw==
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVyXk41HkAx3Faq1Ex61iLCj1RDz0q1bhaPhEqx7iSYxO1jma1HZqkWXrG
ZrPq0VaOVKIcFSlTzoxbjgyDGMeM4zt+u8VWRtMtx7Z/vJ/XH+9VB454hy1S
UFBw/9r/DtXObjjd62yX2a+ZscTb1Y7DO1q3c9oIZT7ntR/STRDvydZZPr0F
F1ZHR3Ho1kgw/OCoNO0IzvlIw2D6LpylWUo+yXbjKMJPetEDkBjrt+atLBSR
V6kcFzoLieUvXKdlbBx0zrHaQT+FxN7i0SlZAl5kxp9xoidBo0ZeHtiTBt9h
FGuuvIbfg9dz9Rg3kSKjnVAJz8XIZI7Gq/B8zH477ce7UYBa6dlXx1XuAZsX
9hms5yHGqiBXYswD3/An43afEvSWt7D9Fx7BvsTl/kR1OcjnpthEQRlcPD8P
6GlXIY3GcEqNqERy4Wwaj1EDVWGQ+exWPqb6ni4JcqvH+uCZEXtSgy0lSNWU
NoAbyCeZW+tRpf29rPfXJrSH+IY65zag2a3UlLmiGZNuJm2j8kYckc5tmLnf
ApbWUE3evifI2qmuHbK/DQ61n4RNTc1QYyR0di1rh8zdu77nu1as4N5iHrsu
wFxl4nZVThuKb/zJ63DtBFH5eNtS8BREV284YEwIIwuHzL+sBHArtWF7unSj
wXGuaFt2B3bo61CfDHuwyVp+g7zuxOWKdgubyR4oqTQZPvDvgoHNOMe/8Rn2
jD23L/PtxuxLYS49uRd71hkp1n/pxqmQyDKBTx8Wh3kkSYt7YFN7qCJ0nQg5
l67Ez/g9wy7X7Vnp70SYutfpYKrWi+sNp0/kC/sRXsG/pNzQi+QZFuNx3gDa
ylo8xRF9EB4wFYcdGoTkVt3gkxUieJd6HJE5DmGQK+q+3SyCMcNlUp0uhqJX
7h5GZD+uxLxztRaJIVELzhfrD8A9/5ts2yIJsussQ0+2DMBbcaJfzB6G1r75
l6axg7jmbL6wmzmC4zIpJTIewka+x7KDuqOYPxbHMusYQoR85SIuGYXNuHLl
da4YUg2vCXblGEKc7kcrmkjg+7AoQNGewDLdfj5uTAKx+88VFg8IbAaTNe9c
HgZPcCzpsK4Ua1U/ZrRaj8BM+m9nVJwUzRuYL+anRuAWmX7un0kp3J0a880y
RqGRXPTYyGMci9ym3tDsxmByUS8o/NE4IrbRFn95MwaymB+jrU9BkmLgLHcj
wA8tyim/U6h8dW0ti0lQZ6Re6ZNAId1JW4V4fP2b9rK0zlLw/Liso9ObwNZd
LkhLovAkcMarwJ/A+oz+pYyLFIpWiYJCQgk2yaKXZ2VRiCs+d0L4G4FR69qN
BVUUAmnKfk5xBLl9UVJWNQWr/fFW1acJVo/XXDatpSDXiPlSEE+was7n/b0G
CuHRYfF/JBKs3MytetBGgWm7LfnHFALt7EHH0n4K69L5h0tSCdKKVn9gD1Kg
ySw8TdMJtKoO32GIKTTeNNPUuUqgIVJaUjFCwUJp+dW3WQRqS827Hv9NQTMo
nfPLTYILOrFcznMK02Xqe6W3CFTXtJpvnaBQGEEz6MojWGoflFr9kkJi/RkF
59sE55h3neJeUwjVXZBW3yFQ2fv2g62MgkMUp2lzAUESy+7u/DQFA8H7vMJC
AtrJpIA6OYX/AP7+bI8=
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.5159873993462977`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3lcTekDxrMkk20M/X6TprI0hMg6YuhBP7ITxohkSSFZRkwLaUgxUsig
RUQihUqlkjrd1tt2O7e6t7vfM6bV0lBIjPzOOe+Z558+59O557znfZ/v87zv
qB0H1rr3NjAwGNrLwID7+6+aA2eYtO5TYttWXsg2GxMwMEaJHfzlAVhv/quw
t1iJM6c5+SDSvcfUtPvf+wPh6H4yIWecCrExnILg++OC2HFrVML9pxHapjbp
OKrCYW9OofBalNry4I5K+P15nNszY35tpQp3EjhdxJLA5my3bhWu8c+7hMfj
o6sHWqgRcZHTZViHWB9c7agWnn8V4sjwx0FeahwP4BSFSOvsJtMrauF9MRiX
u37upwI1PPdwisWQz6n7gpvUwvtvINvb5vnVwRokJ3GKw0/RLdoYO40wnpuI
6m/Tz2aHBjfjON2CvOrV9fuhGmF88Zjy65zxRpkaXL3C6Tbyx/jPGNKoEcab
gK6da8VrTLQIO8fpDuJCYmvaoBXGfxe574xjgr20CDrJKRG7B42dHR6lFb7n
Ht6G9fO0L9PCz5dTElwN4pd1vtYK35cMi9GuP1430+HAfk73cWNrhLjfUp3w
vQ9gv8H9xCQfHXbyeoiG5y8G3k/QCd+fgoCGpzfMJTpM4pWKD/36nBjQoRPm
IxVBPx1IkY7Sw5pXGiRBpvazlumF+UnDpm0XZc6H9RjD6xEyYqf0HL6mF+br
EfYlH+8clquHBa90vPp2rLGHRi/MXzocQgJ9M//Rw5RXBgZWphfYDWOE+cyA
x96me0csGAznlYmWYOM23ymMML+Z+D5uwvmFCxh8PYTTY+R9VG7cvYIR5vsx
cjqG3TRyZmDMKws2tdPKb+xiQOyZhZUOW2eaeTMw5JWNwVUVpot/Y8Avx8ls
2Pqe6O78nQGhJQdv1+8Xu0cw4JcnIAfTkybl3r/O4NNHTjkI6T1R7pzAgF8u
3ydw+m93b9kDBu/fcXqCCePsfoxKZcAvn3cuZDivy37M4M1rTrnQDBBNrGWv
+eXc/xRHRo5evvkJg5cvOD2FOvnh0cG5DPjl3ZMH5+VXFjSy97c1c8pDRNLz
F01ZDDz49c7HvI55E1zSGPz1J6d8rL2XaXaGvSbrT0Hdx+xLFzs+vYYThcZX
b+JjEhlM5v1QgKExPc9S7grv31uAkWkpFq3RjOCPAnxu33hFfpkhfmsrgMq3
LWrqWQbjeb+IYNRjMf8qO58t3PA8RDiWGD6/6zgj+EcE/+WiniAfBu7ccBtF
+GdoxuZNXgyseD8V4tLuC4tC3Bg844a/vRArRsZ1hW9mcIv3VyGS6lzvWGwQ
vkdfiMViu9PfrmRgyfutCJZ7JuVFLGSg5T7PpQivhsz/4DqHEfKqCD9/OiEO
tWWweRMrVRHeW6/O/GTNYATvx2Isv5tF32X9p2hg9XMx7nc0B/1lwiCS92cx
0iZfcKjpz2DDT6xkxZj9OcRhmAEDE96vJSjaYH73Q4sedbWs1pagszBkeniN
XvBvCV5c+31TcZoeTmtY0SXwez54cnaUXvBzKVo9J01946tHTTWrlaXokl3s
c2ajXvB3KUTSrF1L7PRYsZxVZSma0goHun6nF/xeBlOTg7k+b3WoELNaUoYK
ZuK5LbROyJ8yrBW3jym4roPjYlalZegpG/028rBO4EGM6F75Xz1eqUNJESsH
MeZ3XE88YK4T8kqMcHNz3+QXWixcwEokxsbKPNd2kVbgpRyPn44d8p9wLQry
WdmXY3veyTnbt/ybb+VojX6cvMZKi3lzWT0tR6x90CmDdg3+4Xkqh51/xdxV
eRrk5rCaXQGDqysXdgVrhDyswM3T7hsM12lgN4tVVgWU7kM//zxAgy6eN/b/
e86rUK3G4wxWMyphumHa5Y9h//ZDJaipHn/3XaXG9GmsHlXiXdV+/3smanTw
PFaitnPBcCOJCmkprGyr0Nfv45x1YSohb6ugDnARByxXEV4eVGFe/bscY0MV
XvG8VmG3eOfWGJGS8DKhGs0pt9yt/JVCPldjis8lxag5SsJLYjVKnn3V/r5L
QXhprsal5b/4dKUocJfD5XsJet5dHPB6r0LgW4JyAzd15ygF4SVegsFvX738
pGwQeJcg0Ml2uOP5BpLHI2vgH/2LSfP8BoH/GhS4vNjl9l5O8vl6DfyuebsZ
JcoJL5oaGIUeL3u6Xk78N4hGzMK098195UI+0Cj6ci/d46GM+HEFjURjexPH
FTIhL2h4tVZdquqpJ/4MpeF9xC5xY0K9kB80HKaUT4lEPfFrBQ37+1FfzF/W
CXlC47Nz7j7TK3XEv/2l2PpPWI6FfZ2QL1JE/T75YIWulvjZUQqVIso95Uyt
kDdSDH54TL39h1ri7xApLB+Gz9mslAr5I8Wwjk8Z785Iid9LpPhoEfysZIZU
yCMpNJ6jV/4oo1HM+b9PLZwc4kSOJ2khn2qRcNK79rYNTXhYyL5HMnajV1GN
kFe1SK7Y9npYnxrCx4la5Mf29P+NXTfSj7WQKBcZGOZXoxeHS0Et0hdpnHb1
qhbyrBbMyqlf+i2tAsXx01OLmM0fIiZcrRTyrQ5FJQjaKqsgPM2rwzmJcvYd
8woh7+rwptNp6HLHcnB4zT1Wh1jJjqSYQLHQv3VoSQ0blZRdRnh7Ugf/4Ld5
F9+UCnlYB1P3GUvDJpbiCcdfdx2WLbh9I29niZCP9Qj0mbzNJ76Y8GhXj9QK
75YBLUVCXtbDxsW9PviHInB4zvKpR6SraqgosFDIz3qccr681KdKRHjNrIfZ
kriMMlORkKf1uFtrFSD/pQCZHL9v61HY+9TtPdcpIV9luLfKpWnbpnzC83QZ
frU8esOn7amQtzLkhXfnSM7mgsN72iEZfmuZqf1j1hMhf2Xw/O6nSjsqm/Ce
KkP0t994inZlCXksw7udbdsi2X1FKsf/3zKM+DVnu39shpDPcgT5Get/W5ZO
8mCyHBGX9T7ecnafxOe1HK7fjPXu3plKeNknh6WmMc286IGQ33K02x80tylL
InmRLMdoTfZcquuukOdyXEs6v6POMoHw8px9vsRmS+Lnm0K+N2BF+qwr4c2x
hJfxDRid/XALfTwS5XzeN2D4Yg8H6mAE4WV3A+JjPpSv+PuMkP8N8JJK+v4Z
7odWjpc7DXCuc+j7x5x1Qh80YNm2rO51jYconpemBli1bnw+3TaYIv2gQEe0
4aUzgy9QPC9WChwwM9XUdF2mSF8oMGZL4rkljTEUz4ubAoYP/aIKJXEU6Q8F
TE7MKDnkHk/xeXVTgbFem/cHO92hSJ8okHN28frXkkSK54VR4MWgEd+t9kum
SL8o0W+Bv1O56UOK58VSiehXTa88bFMp0jdKRI67MN1tdhrF8+KqxODwmxc8
dj+iSP8oEZYc0HedTzrF83JNiVMLO9/lHs2gSB8pMTPlosggKZPieVGzOZ4+
YZDfN1kU2e8pMe1UuS19LJvieRmhgnHxlH6TpDkU6SsVRj6blmozM5fieXFW
oea08exZfzylSH+p0H+JQbFZ33yK5+WqCmO6UnN++Z2iSJ+pcFB0rrHieAHF
74flKvzw0vxw7jgRRfaTKkRmnzBz+ktE8bywvbV0uKLF7VIhRfpOjaJdSfnj
bIoonpf1aoQVe16RyYso0n9q7P22KWjQoWKK5yVCjawNyTcfWJRQpA/VsBkb
L7etKqF4XqRqZKgSTnkcKqVIP6rRX/HD/3wGllE8L19rsMpHI5Y9KqNIX2ow
1XBe3ERXMcXzsloDr8oJ0468FlOkPzXw3HBvzYiAcornJUyD7NlGl5INKyjS
pxpY++113B9aQfG8VGnwtcjymPmgSor0qwaS40966LOVFM/LAC0iR/QPr+qq
pEjfajF33WpLj8NV1AAOl2VaHGuIR/TzKor0rxa7Am67WO+spnhezmjRGW21
b6KkmiJ9rEWfW4kVnbMlFM8Lew6bnznA6uMtCUX6WQufT8U513rXUBwui/vp
YHd88stebjWEl+91SAi3tap/VEMZcbgs0iF6z4WVob1pivS3DnGb53WkjKYJ
L0E6LFS0mE5ypAkv8TrsOHTd2eUATZ3icCnU4WrRy8QLwTTh5U8dpJHespAb
NOGllx5il1XXz2bShJeReiQ0dUxZKaEpvl/m61HevfXgf5U04WWrHj6D8oZL
mmiK75fjetg3ivSH22mK7Af0MBqT4NCrkya85OnhOd55QftbmvDCnuPacmfa
GRhIKb5f2HOc2TcmSYO7aIrsFxiMzp3x1r9F+L05g6G2BcxXrTRZ30nsueho
QtlrufC8uQyOVUcOOiKlyXqz57hQu/Y+E/JowqMLg4OLWj9ueEhTZH/BwK5h
0fviczTh8yh7jlhXVpodSBM/hDJwzq9qyt9CE17Zc8uI7BOGz0ATfyQx6N43
rm3IeJr6P6pwuUw=
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4lF8bB3BKlpKQwktSyBKlqKzdCE3IGqmQZAklFMlS1ogoskRCJMqa
fZs5M9ayzlB2M09KSQspkfrlPf5yfa6ZMeec58x9f+8dTpctXdawsbFZsrOx
rf4dofzde2PA8PDULq53rE/DEFjujUhz0iDJsaH207dhCDO/KiI2pwqh9xKj
538MQ6TkL32OOX0we9opxv5vGG5xHxpbmj0B2wUvsgkKjkB08MldP2adIU8m
++AaDeyaj8Zzs1eBT2atlsht7IEy5rfZSIhLiRRYlhoFQfJ8zWlGCvy4V38k
+vwYhJ/dE/q/AznwS8Y9i3ZtHCY+5Qp+cc2HLLXuU48uTwDl7a0vV3iKIHWi
kj3IkQkBas/yxmTKwUPlrcySNAt8S7+m6u4rBxFf4c+8cizwlN4fW6BVDjq/
VO9s380CB/5G7ytW5RA7zeF4eB8L9Ke7tTeE4dfpEuCkzYJND+aGNMaxtRVd
9KxZ8HTxEG9G0gt4MgnFjhEsGKhpv2q7UgEHUVD70jALiKIPyrfXV8KupU1l
V8dY8CWH82v9lkrgkz924dsECzjiDF3EFCuhcIJlNDbJAtWz7dZM20poMtzR
mvGFBalc7QedKyohSbVTqnyFBadt25Yuu1SBU6xum4ggAa7Hp6pyvKugX2bR
RmUzAb5663wYQVUgorqx00SIgDhFg0/7k6rgjUakVfBWAprY2kYWKPj98R1f
e/5HwLZnrQ1BItVgsmAloClFAPG7JTi6qxomd5sXaqoQIEaZKlt8Uw0PqpSD
dqgSYBPO9c6NqAbTI3xmnAcI6FpvfIy0UA02YxK/uw8SUCPWv4Vnew04rVG2
NNUgIF6bKI31rQGHx8oLkroEaIT9JeJFa0GJO/oLhykBfgYSQv+kasG6JSqp
E7ucR+eo155aiDufq3rXjIBdSRElpkdqIYiWfXGLBQECeesDN12qBW2z9IIt
JwiYbhXZnEithfpPRvJTpwhI4T5gkOxWBxzQ64CcCXheNPV+yrcO1gVXSPi6
EEA1TY08dKMOSmRqC6RcCfiSvNgymlwHim99hSLcCNDf0aC3o7kOdt38YaXi
QcAPddApFa+H60XRBqcuE8A9Mctaka2HyBKtiCVsidCcmxYq9WDp4Rqd6k2A
UTs7+nmsHi7N+kz2+hCQa9mqrXkNf35oiql8lQALz2OaLxn1EGeW0VMfgJ8f
3/Ko6EQ9LD72PGtwnYDgF88DPafrQUNEvroPu3BxQwPfSj0829lVRAQSwBbZ
q2at2ABHz7jSfgQTUJZpdXDyVgO0zB25yAwloBU4BlWSGqDRvELBJoyA0ckq
v6hHDVDZV/C8G5tTfmu1XFUDBDDuf6sOJ8Cheljl8tsGKLJ1D78eScDGXvt9
fzUbQaDFpKE1mgBLHX5SvGEjnNGenN4RQ0BqRbODhEUjxMX/XAnBlkyTvaPj
2giaZhIf998mYL/j9w+R9xphR7tv6t1YAvz78/7b8rARxDNH173HbtS3ESrI
b4RmW5bdoTh83vKNuq8aGiE3y4I2im0zH5m5caoR1u5kOgrFE5DhfKgya7YR
hvbuW++IzRr89GrvciNMKZAynmNfaDRdtNjUBAs3TnppJRAQGClimareBP7j
Iu8s7xKQtbWYa3tCEwzduDhtlEjAZIyDRPmDJngrSv0eiS37h/+Abl4TkGo0
CDJ2OcvP6XxdE4wm6V5UTCKguRDIBZNNYOrxXvsvNqfY/IDa1yYoHiFfUrpP
gHH8k5lXi03g5rEcZo/92odH5AsvGaTFtE82YH/QGPBVPkQGhx3mFa7JBCiU
RN2m6ZLhitazNXexL29Xy7E0IUN0ZeHBGuyltY96rp4jQ6f34WPsKQRo+Zu9
X3eRDH/HnsrKYIdNs/9J9SeD+tdTn45ir+9xlauPI0PSLYOtsdimIApGqWQo
FLEIe4Z9/0WX9VgOGV46H+/rwBZPVY74r5oMdwLRZvZUAhy536UnUMlQqsKz
Xhw7PzClfHsXGUajPk8ewN5zdnlClyBDIL+Ulit2lHkM+dEMGTjvkI8HY4/r
bn30+ycZtvo0mSRiq6o8CbZeIYNyyQb1fOw46f12L3goEERKE6zDntxC1dwo
RIEWF+ORV9gaXKZi7hIUCNUTih/Fnv7kPiqpQoH06pTGJWwYW6wP1qaAlYns
Qc40fP+6o9KHj1LAMO/mI0Hsb+TN11UtKeAbEvd9G7ZB2WPbe3YUSK47tF8O
OzNnr9oXVwrsPe5zdh/2z0SyMMmHAnGmMtfVsY0jjBfzgihAmdG5qYOde3Vk
cCWKAs89XvgYYv92cas5c48CHPudzY2xzU8upNRmUMAWGYqZYReSIvw251Ng
Q7FhvwX2irqA9eUyCpwttvCzwrbZna3aVU8Bv7vWHCewS8WVhGRbKXASdG6u
vr6Or/FHeC8F5qkrU6uft1shDTCHKSClGq62+v+r5gYrNN5RoGKg2n/1+zdM
OielfqWA/UJMzur6nAbmfeYXKTDEM1O9uv6G1lAL0zUIejI7alb3J1DDt+85
L4KZE/x5q/u/UJDJzymMYPhHReDq+VAfKMyd24GAZJOlLYEtHFvXR96N4PsV
2ufV8/UKMiwTPYgg9eyGqNXzb7/4OsFPB8GGo548v/Hz2ebg5MUwQrD/Cj1g
Bvuq2dxxJWsEnCSFgdXn2a1zQ+n2WQSZ+hdEOrGl9vNunHJHILU2kLR6H/qF
5LozbyC4XDN0YfX+yHPWFC3FINBzW3tq9X6FLh6JO3EfwR7LZpXV+7d39KwR
byECy+sNhQexb3V9lb9QgYDL+LXeNmxmUxBPaxOCkTC9jjXYd7LTXgYxEBj7
MRM68f1/d0+mcGgMgf7jr4xibI3wymiVDwiEBIRW4rE/OfcZfl5GsNzuIXwc
WyolwklJkAr29MeHKfj32RtvZHlGmAqVOd30NOzAWwJ6t8Wp0H0v3cQbu/9a
9o6pXVTgNXzLJoEderqRyNSkAkkr9/RFXA/Sm1/d0tSlgnDMS3l17AqFYcVR
Qyoo3Kot58B+v/wzQNiSCu1DRVNpuN4ce7hHIOkCFaaYYjOluD45rdWuVfai
ghW1ys8HO9jT2L7vChUsXiTV7ccu1bzwjPcmFa61M8+/uEeA4Phj3egUKuzW
4jLLxvVwt375R5mHVDDfKHz/JLZ+MSW+NYcKJaPf4/mwrwWPjbAXU2FWrbcg
ANfTcfEtvsHNVFi/+b6HNq63+fYxuT6zVOhYsJK8jes5pS2VxL+A7ZbYqYg9
rJT/rXSZCgFhzQp9uB+s/0fT+LKOBq/F+3j5sb2y/vS7itPAPtTQJhz3FzWW
11q7YzQoDWH8lMP9x+JoyLNlUxqM9E8v1UYQ4FEWZ5Z+ggbSO49UGGBn3ix8
OHiWBv396fr2uH+xS06qWPjT4PSfjg/BuP91Olo7G+bRQMfEU/QG7o+B5e/b
IgtpIC+b586OvZvtqmxLCQ0e5HulRwSt3o+kGaijwfrRwrRI3F9NmX3e6j00
2NO4nu867s/9Z4xCFBdpIFwzM7Eb9+9RG0gVNG6GpN/un+twPoh92rtobt4M
UNwjLYKt+cv+1F3rZmDu1dH2d8frTQkW53VshqK3pA17L+B++7o+d51fM6xw
VIjdx3lk0kK1bCmrGQT8EnhlHPH9M5F/yZxvhoqPP+S9cb7h4mUj4peaoY4v
ryTDigCZrsFFrX/NcHi+eaLFkoBzxyJlH/K0QNYa+yOCOB+NGLBunZRsgcwF
Tens4wS8OpxiQD/eAhmFmnDdkIBnyuwttMIW2HglbnHPIQI6ZodGvUtb4DLF
gn8vzm9TpaXz26ta4JS86KASznc7lOx23kAtkOj88oIszoPp8rVhGoMtQBoI
Llq/l4DbOy/pVK5thdsNHiWJuwhwFxohP3FohQ/5blOPcf7kv79NQ925FWx+
3dwVgvNpnYBTTY97K9jKbdp5EudXzk2fS39dbYXeZBqJi5+AJzz/ZZPiWqGK
6LS23YDz6D/J8C+1rWBdnXSdzI7r6acLhqoCbXCiwiBJDudpPcpSb0tLGwwm
pcjMhrMgTJrCufSyDWbqs3QOhrKAGhtxWLG3DerKMxWDQligfZKvNHm4DRyr
1wb8u8YCtTmpeJevbTBJPU/MXGSB0k4zYy7hdohZthM+Y8MCkVv5HUYe7WDr
/Uc+Q5YFs8ctqQz+Dui+zc2R2cKE/+qij2wMfAlXq3dtcuqZAIJn8emhrlcw
bV0fqNI6DtIH9TLvqnUBKTH4Rf3NMaDp/1esk90NTAW7D6bbRmG/+vwj4msP
3GtcNvGuGgYOnhbJUts+SA0d2nKZbwhsWB90q63pcOpS2fs37m9wP5Fmp/6h
Q3T4nuLPNQPA5WJ2+20ZA/rTe1yKXjIgNzEtbPlkPz6vddr+/X3wrahHT4Fv
AKrZHHStc7vAtbYxkZM2gJ+TNZXs2QEvq9vNR91eQ2NM7IF9l1pg7DEabhV/
A68/iyeWiVFgOPQN/WnbGwi7KX0j50s1sFvk2RzwHITkuDuRUqwiGOM7mz8q
MQT8Ye2/Fv1TIBsdcr7WPgTEgxcurYMRSMjh32eF4GEg6mQYxyLz0ZXZt+/e
yIzAtw8/PW8dqkD/fELclbpHwCNM/1KAWj3SmOSsexg6Cqdyq7mmVKnI0aDE
n11+DIbuXZCk2LagQ6m6/0JYY9ARphQlENyONIbjNxckjcPURllHEYNXSHbj
4oMO9QlIMSr6VZfchSrclf0ztSYgqjUt439ZXUir3d3KBybAOiDkiX9BFzK/
Ob5RzGAC2Gc2vt/W0IUCv9PCvcwnQPj+iY9yrC7U++bOxS1uExD06FPhXrlu
5J+1U+d88gScCdeKXajuRm17TT/++4YdqH2Un9qDxNlIuXnfJ2CKI+RXQEcP
8qXr2pN+ToBskpzveG8PkvA5MJD4ewL6hKHz/kQP8q8QR9IcTCBrvp9oWe5B
sgc+pxqJMqH6wdUHcqq96LZGjGHqESbEae7L/pvbi44bNOcrPWDiepZTkeTd
hy4szAu2ZTAhaiXAMdq/D4XnS4XaPWKCQEFXt39wH6pbF3U6LpcJBt83TxjE
9CHp9qObPhUzIY2g0Z5k96Flw56AJzQmrHUpfeXc04cKScPGYp+ZsDXrfekV
QTpqWeKur/jKhHBimlN0Cx0xC9V3Gc0xQU3Yr6xRmI428zxku77ABNNlh7kl
cTq68cq+enCFCR+CRWWsZOnI2uidRJIQC2Z4VhajNOlojcm379yHWRCuqAKT
5+jodaVew7AOC3KTVcacnOkoXywtvPAIC8Tt2rUJVzoifYbNpGN4To6KPsHw
pKOE2ETV6BMsSFDvqr/jR0dir1SvrfNkwc/erbNuMXSkahj0l/0BC7zTtPyK
i+iIs7SvlZHBAn/HsfetJXQ0tEU6/vEjFrzOH18/WkZHgVPd23TzWGB+RyRg
uZKOaJESEFrKAj4SV+fmJjoybaGF/WvF69kX/Lagi47cdLi5/nxnwTdUm205
TUcc4ttKMn6yYDxiwfD9JzrKXdxnpbHIAkPbRI4rn+lovPRM9vW/LLBNvUaL
/kZHhQlDYsFrcU6ZEFdL+ElH2/5TqFreSMDgu+edfGwM9MXjQLTRJgIOJzaX
+LAzUMMwnM7AdXF/wvPHjDUMZFt1gk0D19Hkr4kNMesYKMnzhsl1EZyzvM4U
DKxnIK5RxvvFnQScsKjYOS7EQINHx2uPShMw9/bjzKatDPSk+kNsmgwB/6so
pOgIM5Be4h/lQ3L4+/ojo9NFGSiYJBPir4Rzhn9riqwEA32vCdiygPvEnmeH
Hap3MRBVOmJaXx338ftu9fWyDJSQFN+YjOd8JzVJsUY5BlL0yj2nqk1Azo8N
36sUGMhVprvkih4BM7oXmZF7GGjs/nbDeRMCRGq1Q1IOMFDdlwxZdzz3H25L
exp+kIFSDbbyEHjulzt5YMvFQwxkvsjb3YP73PP3BVQVdQZqPb1s8cwW54zj
NwxStRjocaWfiuRpApbnOBJctBnoBu93obQzBDTVVInsO8xAapSPQ5EOeA5T
3PCjCRioeMcbe0dn3Gc28b0o0GOg24HmMIT7sB7zBNupI3i9A12Spm64r7/s
SODUZyDJqOZ3mriv5yg2udkYMFDydJm7MJ7z/WupKy+PMpCP7m7jBDznS5Ya
HrYjMZBpxlPFdVcI+KUtWv8Zm9vk0ey8HwEkVW2nlWMMFFIW69eLc4dD56uA
38YMdJqb86RBCN5PxvJdLxO83nNhak03cA7cW0OwsOcFA/48W53jU/yUao8z
UJ/nj3FJnIMCY3rltpni/bR6UdJwbiJF2NndxHb1dwmLwrnqwVK7h5oZAx3p
I5z+4jl9p+Vf/bvYknJ2+ldwTuP1FbGZxB4dseQ6h3Od8kyjWIg5A9Xu750e
wrlP9W12Xyt2ctyxTlOcI23Hpeq5LfD+tHXitXBO5TjauTsKe3dqo1clzrn3
hI9XkbG5Zw+aK+DcfbpU2Wcee+poxb7HeG7Y477LScqSgZpzlDaLpONcLEHc
MsfO/l34MyED72cbP+s6drCl9OC6TJxb97h7ZGOfKsquDX6EzzcxS46GfZBD
LP1HFgHebM6iLOzN9qmBHjl47i69pPUbe65awO7tY/x7IXknbrJioB6+eG3b
PJzDvkuK7MR+7sa9ve8JzpXHDtCVsaOpEWyGT/Ec4Ha+XhPbWXTlbVMBAULj
5wb0sPV8A1tUnhHgW/FxmyH29q6FJ8+f4/PwKn5ggP1/jjrG7A==
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.5159873993712993`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw11wlYjWkbB/CWr+z7NhMaRqphslUk8U9J9BEaZf2YqOgbmTAoSyVNZJBl
qKyVQpmoCCW06LScpbMvdU7noKFEQhnUp+90up/7us7V9V7X6X3v332e577f
Z+yGX30CTYyMjNr1n66/LFx69j73MrscgwzhD1eviN+8h1ZgsOF6Gw4Nm7mm
JLsC55K6IhwXX/fH5hOV9P0D0PgE5p0dWwU/3674HVbJToUVr6ro+3FIOOnw
zjKCizpNVxzD2tJnNtF7efT/J3FhUGzsvvc82BviNEZtFjXYFfBhuJ3vGTg8
8NL8NVaAsN1dkYCyd/YbAhQCun8SNnQeSXL8sxqFD7riPPIqOi5a9hfS8y6i
Nv2bVS3hQnRrk/HvyjbbwDohPT8FHTbLZuxoF+J7Q6QiK3WW30l/EeVzBeO9
XplxLoowzxBpqK8YePtUh4jyS0fmOItIx2liBBniKp6Vnt4a+JuY8r2GL+nO
P+3LFyPucFdcxxXLq5JFbWLKPwNLkeXj6SrBjUxDINnpgjc3RkKeGzg+55ou
TiABn9cVfyFwSOif6plS8mVhQGFZz2fzpXjb3BU3sTv+iE/WESl5s2F+LzYs
gCuF4fGHs2FTu2neb6Yy8ufAbZJKs8xFhu5y5uB1Z7vVx3QZ1SMXT7n1oer3
MnSnlwu/pr3LvHrLqT63Ma3jQsMUyGFI98Ft1Kettbh7Vk71uoNXo663O9yU
w5A+7w7sxnlGuUrkVL88/G/I81Ee7XIYOJo8HLdfej5tnoLqeRdWyvPWU39W
wMBrvovoqc13EuIVMJR39z1EjRi5c0epgrz3UbxasCLLQkne+xgRX+xX6agk
bz6mbfYZ1jtQSd58bOx7cNulWCV5C+B/wzlWkK8kbwGmP42OsRYryfsAOe9H
H5zToSTvA3xeIFG96KkibyE0ieu+7TNBRd5CNFlPG7ceKvI+xODXEXuXr1OR
9yE+X/4QGJihIu8jRHxsinTcryLvI+wLXW9ilaQi72NMKe4Y4pigQqchHsPV
NDxmzS0VPAzPL8LHm7MSm3NUtN6KsKp3EP/vQhWtnyK0V5g/tyhSUT2K8Xz0
6rzkKhXt32KUZ47rtUKgovVZjDdGkj1rKlW03opx3T9mAr9cRfUqQVpsvm6r
iRKbDPmXYP6lskOftQpazyUY2W+9jftbBa3PEkRM6cUdnK+gepZieusk0wFF
CtovpdjubZ+2Ik5B678Ug93MH4/8L/t9n2AL35kjCFWQ9wmeDQrwN/osJ+8T
bI4qtkpVy8n7BMtvey6x5MnJW4aUs9euPzwvJ28ZLJqNJcpEOXnLMHCiDydr
nZy8Zdh/dH70Lf367vZyUDB6xNAJI+Tk5aBh75JG7w4ZeTnQrd99IKxeRl4O
3kxKNqv/LCNvOSYNzPWwSpORtxzTFYcnztbKyFsOdc7fO8arZOStwGXOqbjg
BBl5K9D4sC4hfa+MvBWQlLu18YJl5K1A70Kf5lW+bH9XYu2hxjE2u2TkrYTT
P/1Hu66UkbcSHec8O/qNkZG3EifskqKzWqXkrcLWrWdCosql5K2CODKEK06R
krcKqffS1r/cxvpPFRp9z7sFL5SSl4vQyYMCRg6VkpeLirTwX4qbWH/jwmyh
o9GeRxLy8nBqeOW1hgsS8vLwwsql03WPhLw8cD64H/M/yPohD38VZGuSL0rI
y4f1nJc/no+WkJePqzUpJtDfr9vLxyK7pTFBmyTk5WNo3IDSjbMl5BUgO2Oh
zfAeEvIKcOWfZd/7icXk1c8hjz9k7y+IySuA9PKS6nP+YvJWQ33o05Sqyaz/
V4Onnfn1p68i8lbju0fPjnmJROQVwufjf6Im6udL9/OF4IpXFxXvYfNGCGtp
Xk7bPBHlI0TppsihxiNEVA/9XAsTfzFqElJ++vv57doQWiKk+giRMtLd9dWf
QspXiJiPN4be2snmnwj9zNx7HV0mpPxFeGQmeLrTRkj9SoRJrZ/+ELyuJo8I
014k1C++WU31FMHR5UX73E1s/orgnvp09aIfq6m+Ihz8J2LHlnoBecWwPYeM
LbkC8orxNDO38liIgLxi9OvxyaXTVkBeMZxmBK/a9JJPXjFc2lSXrhbyySuG
ifOcL3ZH+eQV42hrZvyo1XzyirFG3vdJhj2fvBLsisp58mEIn7wS2Mb/ZOvZ
wiOvBLqNqe/zpTzySnD0eMv5+ks88krQEhn7dUkwj7wSbJ5+qdzDi0deCX7e
Yf5D43QeeaX43Xj9xvSePPJKYVzI2evUwSWvFHeaOuyDarnklcLNdUleYxGX
vFKkv+sz5vNFLnn1+1LilHg5kkteKTLzbrZYH+CSV4r6rNMvc3y55JWh3S2q
750ALnll+PlC5Ikcfy559X2i0WSx83IueWXYsKH+m1VLueSVYfK9bSmJs7jk
lUHq93Tlegf2PieD7aTFDY+tueSVY8WxnLfOPbjklWOUurWPuSXzyvEv6Lj9
LZhXDqNGY+sJvZlXjuSWHmPDvmFeOZqq+DFutswrx+ipwXkj7JlXjhnN208F
zWJe/XtCe8qWfR7Mq8D9lQe8jA8yrwLf/dH049Ik5lXgrrfLw5PXmVc/h05Y
bh1wmnkVOCwMXGvFYV4F4o/+MuVBEfMqcSUjePj8Qez3VUKeXKhY0sC8SjhM
7TcxuoN5lQgpKJHt+My8SngenNojYQyPvEoU9z+YNcycR14lKhcq5Nv1191e
JWZYKc6pvzCvCt6aey+2tzKvCjfXnD4rNWbrWYVEZ+1UOxO2nlVwkX6r3WfG
1rMKxtyyAfNamFeFwsS6Z6PeM68KY/f7vml+x7w1+BCZuiCqif2+NRi8+q6p
dxvz1sA9uNWjtZV5a5BqH8+5YsEjbw1alVuC8m2ZtwbarzFeRuOZtwalNp+k
4XOZtwYJ67TxK93ZeaEWi1IO+Uxdzs4LtSh1T7P75Mu8tbhd4HP/USDz1iJ2
gEpSGcC8tbA4+ykh/grbv7UwG1E8+ySH7d9aTPvue7919Wz/qhHs2jl+vAmf
vGqci+HVtTryyavGncv8PhGL+ORVw77fL0lxYaxfqZGd2SixOcD6lRo9V845
PT2Q9Ss1Qk7sEs/ZxfqVGmXmXhmzo1i/0iA3O3jCnFzWrzR4F3KGG1TMzkca
2FdktLre4ZNXgxW59k5RrXzyapDdS/t3ZjufvBrcC5k7/2Ezn7waRM204Hw7
gPXnOjzPtjD1tmL9uQ4y7ozaTj/Wn+sQOjhynGkA6891GHLNlHMmXkDeOlhe
TdCGlwjIWweLOKHDYn3/7/bWIf1MlWfbwGry1mH4Q4e3drOqyavFAmVs9pHo
avLqr3f01bzRz81urxaiPEQ8bWPzSIu2faVjJw8TklcL86CG8BcLheTV4pWl
g9mbLew8qMWYntcet0Sw86AOH52P378Wy+ahDg5ym3s/3GLnQR0ajhSELZCz
+ahDWPkw209tQqqHDhGnVm14bc3OgzpM8O3Y+au3iN7ndbB4O1jhuF9E+eog
n2RVY3mDzW8dBCWxPbfViyh/HeLmren1fiB739DhWPQZp8Nzxfg/ejewwg==

      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VN8bB3BLiRLa+SYqSWmzFCE+qFBpoUiLkoQoSZSQaKFFmxCytdmz
lDXbWKsZyzAz916kppJSimRLxe/8/prX+zXn3nvuuc95zvMscDxhfURMREQk
U1RE5P+/reV/VwXyzIy6bcc1q3fXwS/Hs8KibxFypH1kxFzrELzDW35u32rU
d77jGfnW4dL8oQ0T+jag5eT2Sc+i6xAiqds+0rsLDunL7wS21iE0YPfiX71O
aFMZWpe59yVCCz5v6ev1Rshlj3r9fa8Qyst++6P3Enb4LZyuvYuN6WX9BXub
I3H8iUO1zfFGXDi4Mui/NUmQiWv/Fv2Pi47uh9N7nJ+gZtCu6GlEC8rfh/Sc
ksqAxEd7U715fPyR7f8doJSByls92mEL+VhrZD8pRDsDHwZfzH+jxkdurPbC
aPsMvNhh2O2lxcfjncLdpbkZ6JqmvjDAnI9rtXrVE/ZmolDTMPavJx+703pi
ItOfwufTBfncSj5816Y9alfNQbrPxcGXewTwyvoeZaKZA32JryYFBwRwX6R1
LWVdDgJf2jBJhwU4IFfieWpnDs4zi9+7HRdgw5d6wynBOTAeO7GrJUgA2eg+
Wv9NDkRzf+36kSxA8rCudGx4LqhYfubuPgGSjgeMj8fnIkk8y6ZxQICYj6z+
I2m5OITv+ia/BQhr2tSqycrF/KadxXPFKJxM2Zf8+nsuBq/MOfdoBoV1u88b
/7Z4hiI7S+G/NRR4BXXeduPPIMnzP/LmDAVhRpfG1cnPcX/53fMv/Sn0JEl8
L571HExjy8+s8xQmXDc7Mnf5c6S93vrWK5TC6oN1Nm/tnsNVYRa/MYpC1KQ6
HadnzyE4ckeJzqOw16525MSRPPwtWiZY8oOC89ZPeUmeeWAcfjQn/KTgZTrx
ZLN/Hp5U31WdNkjh+vKN3VrhedhxvLj56x8KpSK1rYPleUiyUIKXFI15aTUv
/OXz8SNIKahZhYbwd3VAKCcfT2XferTY0Jhb/il7WJCPxbJLPifa0bC9MOmj
izAfposTtd320eBM3rLJYjAflm61mwYdaBTMbZklpVyAMZGxE5/cadwwFGZd
8yrAu6FHTSuCaegH/xXeUCiEZZPgqEMaDZ+NSjPHVAqhMMu76VUGjRwpY3OP
lYVQ0oiSW5lFY3H4xafb1hfi3KFbi3uf0Zj2aLKf7PFC9NtnpG0ppfGlRn7G
HVYhOnRXW3s00oiUXLMxwqUI89WXXt3fRyM941PnJy/iD/nHw/ppsLZFXdIN
LMIUi+1PiwZo9EQMV7dFFME6Mx8Sv2lsWPDCdEFVEZ7F9lf4iDL4pQfjLMVi
fD6hnJI8jYFkR++7cbVijNhdDIibwUApKOm8lXYxGm89z785i8HmOtGKgU3F
MOA027gqMHhoXWNocKYYV23y7PvmM7By32TwqrkY1O/Ns3atYuAsM9qm0FGM
oiojTzlNBgG56X7uX4pxfsHnta+1GKQOT3khM16MteuHZ2noMBC51LjWZvkL
JLeVT+OtY5Adt1PnQ8gL1G1pTfXYxGBqo73mX4MSJDg12Yg6MLA2lrO4YVaC
5MVujM4hBlHPqg4oWZWgi29pfdSRwfx7amHGziW4evXcylonBloOP7su3S5B
z6LKWLujDGz7L8VN/VQClps4/eMkg1gn3ecJvSXQ1pwwb8CLwTuq+/Wq0RJY
ygw6DZ1i4FqybdhKthTbW93//fRh4HdJ3jpKrxRDjnpOtWcZJMzOnKR8sxTS
/SqpHUEMPlw5oJQTXQp9kapDz4MZqP2RW2PyqBS6T4uXhFxgkPPOx/FwUSmM
h9LeL7zEoCoVZSkfSvGf6uGZeqEMJOb289Z+J9cPxG8dJt5y4/HX18OlyNRZ
EfvsCgP+SSn5HukyiMjs8px/jUGXPs9LQ7cMv6x1F7eGMVB/evlqpUkZbstc
lg26weCE8toka8sy/Di9ffqimwxGxOMbvA+VIeWpv8vhWwwmNzgvKb5ehuhf
Js4VdxhsgwI2R5Vhxpkgze3hDO7mcmzak8ogNL+t+IZYMUrj4r/8Mqgr7LP5
fpfByoOjHSbCMrRqm7l+j2RweceVsvivZfhg/u/H4SgGb0xmx/8eKIPhL48i
mvj6Iq39uVLliH0dP7vwHoMv3Ufb5muXY1vc1Nk2MQzQPlwcYFgOW7Ozr/KJ
o+ovxzDm5XhR0VU9I5bBxuwHdrf3l8N82VD0S+KH3q3U+OVy/PW1apGJY/D7
iEvBvtvlKB7T/LiHeMfuwcjC2HJcaQpe/5B4XG+azYnscnTp5Q6qx5N4WJa4
mlNcDnUD7U3uxFmKK2aq1ZRjiu3R3lTi/eMWvLdMOSgxQ13FBAZ5fdQz/Y/k
+THBbVbEUz44hUd9L4e31SveJWJHXv/J/uFyjPzXpZJP/KImyGqbWAVqTudw
PhBPK5DRTJeuwOPT/zhTE0l8pcTJScypQH3pI1Ud4jnXiprKllVguveeL4HE
Hv5m2Qo6FbgyLL8zkbjuGP+mj3EFJD/d+a+MeN4BR4/mzRUYTosHQ+y9vW/r
CpsKOJvMru4jrjcOXHH1YAWitaknEkkMVLSkp346WoGoyKIvCsR+KrE9xt4V
yJGMCVMnbpm5pD4usAIyL3aGryVeKlGQMXKlAnqOtaPriYOG11/fdbcCqRs4
dZbEzJdmt5z4CmxetX7YmnhV28HN0qkVmOo35YYtcQjn+1LXZxXwkBC/upv4
bam/VE1pBcQg1WNDvCZLqlv5ZQVE5owVWBGHJd575d9cAbZU1dfNxB9vq6bS
7RW48J/OFRNi/QvPQ7W7KnCRZ3B7DXH4KROXW30V+LsxX1yNuNupyezbaAW8
pS5/nEU8P2Pl3UdiLOwwuKkhRlz/aPBC8yQW3ALzvn0j6+MbV+o1Ls3C7dH2
WTxilciLjiumszBrf3d2IXHjjc3W++awsJtX+SKG2C9kmulVRXK/mVt0zxIv
Ps9oFi5gYa6t+2Jb4pYziQs+LWbhgrXUVQ3iQE/naTOWsxC6UdpBknjp0RWi
Jpos9Pbsy+wg8RC0t0QYZ8CCJHUhNYg4pup1iIEJCxOqowY3ET9TZ5a3mbGg
Pyy+SY64c3TAd441C0pToydFkPj85yiuXLCbhZY7c3ysiGdzptXusmfh8MMH
36cQb7q/clq4KwtG6jcn+JL4dxQ3LNTwYGHb821PlhIHuG+xbzpFxn8V2DD3
SfwbuKZJn2ehp/PP1+XE0988MAmNZGFpicqk52Q/LtuQ81n1PgtpueHmW4k3
ZJbfqEli4fQFhwed0QzOBLS3imaysHrVzyeTid8ozvIKqGLBeOLQzNVk/w9e
UpGf+4oF73Bn00KSL2S+a5YXN7CQeG04XJfYuGzb5GGGBfdgl4erIhg8sb/y
8GQvC41P5sb/I/mpvDbKQm6QBVdTNQk3YmbFkx9Zo2S93q6L490m+WysUr9n
YiUEniG7Ekh+80j40+KsWIm+uYXy00k+XPvOQ3z/pkp8iUmY7E3yq5X5ubTR
bZVY0nGz/XkIA7fs69tjdlXCuqnxe99lBnHnU+9TByvhaHy43ZHka9H5H7St
Tlei7If4uCrJ72wHGyezR5UwuK14Xd2PxEdOZ+2l1EpMmTzwcRs5H5aJeKtV
P60k+V72m6fv/+M7/CuKKvF+9UHJrNMk375t8tRrqEST/5l4aXLetOzbfG75
cCWq7J6p7Hdn0GaLqOlbqtBX93mD5V4G15Ibh3fsqEKb7JbgJXsYGAzZ77ll
UwXlxyM3xezIfCMDFKUdqqDyO31hjg2DA/zihxN9quDz6tXmnzvI+WS1Onsk
oQpzqfYYaXOyXyyXvnrbX4U7t7arZJPzepK0iPDGSBUkyjpPLdVgoMqhhteN
VeGUhuDAg5UMDm26pHZfqhrlmelS15YxaN34LmT3/GpMXuT5xkiVwWujyI3c
rdXoUacrdeUZpGmIVlemVuO3E/e3518aR2e2lj0+UINCdka4TTkNubvz9PWc
aiCSXChqSeqfommOBQ1Ha7Cl0D/Q+AUNCdlvWUPeNQgeEk9RKaDxWOpfosX1
GvhliXe0PCX13dj8Cz2FNbhmWL+IiiP1XLer2epptfhscf6Y31kapuUjjdXV
tdDQq48MW0Gjd6s1q1nuJaRuzm2MuEXhX1Ho+ql+r9BIp7we4AoglBpO1uW8
RoLLiswF0wVYpGMad2stB7r7KechfT4qN/zLNE6sh9Hj5oeJTjxo6fXHC783
oMGqa9AhoQUTpKrnZ9k1QfAnPL2goRm277pM8m24iClom+kwk3jZIlHWHy7m
3Tv28owbF5OObL/6PrsZB1wjOqZfasLDO/eCR3e3QGOF6+gd90ZMcYsz5u1t
wfzMBVlKLo3wNn0wnmHfAi+nnyJZjo0w/5V+zv5wC+xevwzh72lEz67ysyyP
FhwNL1AzsWjEGvlPJ0Mut+B2Rax9jGojXiVoOU5/3gLt/NBtmz804EdGg6m6
DA+DI1Evmw43QNFJKm9Qjoewizqd/zk0YLPiRtXKGTwEt6VnuO5vQHJY6SQ7
BR6cnz9dJ23TAPvjGfWXF/Gg2qvkdcqsAfUrr9q+1+ehVk3ufNXSBqTnbnCL
duHh7+LFV4/018O5sOSORCUPL99zRhqv18PhY6HwQTUP79wb9v25Uo89snmr
DOt4aD6XoaweUg9Ll8yGUxweVDa5sG8G1UNrTrzUewEPlZPuZXn71GPsdGBw
yVcerkROqH12sB73dExOes7k4+PHzpiRNfW47WjImjKH9GlVTetOatfj2k09
2RQFPsLznEx7NOoR2KX5tEOJj7+zwn26l9XDKWph9+alfEScH/AXWVgPjSHx
Q6pGfNhNXSDxQKYer/LrdrS58MGLONmS0c2Bb0zX6FM3PhyUJJKMP3Ow5JzE
k+DjfCSZQ5/p5ODqBrPfS07xEWevzpcVcrCZV/vgTCAfOfWnY5MoDhr6avpn
RvJhZLLK2qKGg5Zl1RHbq/g47pWxPvsBBxdkPxqp1PJxOFVub3wiB1q/xLqH
XvIhLnVF92Y8B3dfmBomNPBxcaTIzDeGg12bqj71MHys3ons43c4oJwrda71
8iH/NMqjI5iD9gcVTI2iABYCr4eNThzY/k50cFUWYCjt2T6tw+T5O4K+TFko
gL+evW/0IQ7Y48Yj1moCXPZmt7kf4OCFfdWc95oCmK2uM1hlx0GsQq3tPzMB
WHsnqy+x5GDvHTZ/zUkBznPPegnXkOd/Sd/fekqAXVc5f2+t5pD6/XpnwGkB
mIG/70y0yXr0bhmo9hdgRD44O1ODA/2tDTOsQ0jfyzvrmrCMAwUprrXHfTL+
rPu3nws4YIIE3ORaAd4s/GtvK8eBfFHPZMNXAkjvmX/YRpaDPb3iG3lsAUTz
ZsfbynDQZq9VPN4kQOfzuqcHpTno0L/1wK5NALHclTphkhx8GLDwmtxLrv9P
NXibKAcLlztkJv0UoGbAPNFThIPDh8906ZA+epWDxreIcTY6m5/sPUz66Igc
/8md/9j4nCW2vlScgt9Dsb1xo2z0uJbO8JCnIDbZjOc9wMbyJN7WCXMpvMwN
iyz+xcZx+mto7DwK8o5igSLEPzYq/K1bSGHS2wsVET/Z+LnwdKfyCgpD7r+G
qB9sDL1Zld9sQsF0X3ldZTcbujPNe102UJgpSWUvIfbdcmDpmBmFlmDRwjtf
2PhdHBavbklB2s1/nttnNv5GdV++aEtBVWf1utWf2BC1emS7xp1C1dMuixXv
2RjB22/iHhRWbjhbmSFko2+lQnCLJ4UZy+ZnLSd+K30r48RpCkddBcI179go
feUnkh5MYaLlh3tHOtjIK8yP9L1E4Xbe/PjhN2xkJPepm5O+f+WRQrkw4thL
zjadYeT/DeLGpe1kvsbW6UrRFP4mXknXa2PDc9UNfI+lcM1bVOZdKxsuSq/4
JfFkfibfW0OIbf8ajts9olA2Szm1g2Fj6zffCLVkCl7analhxBvani8dSqVQ
7PufrBGxdtHSXXezKGg2NUum0myopzh1H8ol6zdeH+tAvDAqMVAjj8KjyBW3
5hLLec9Kayim0OYpHRdNke+xSnRsUi2FPYviNbIFbHQprbtLvaRwX34Ry4+4
Y+qZJU/YFBoftmdYENd/67E25VKY96gg4hufjeo2tS9yPAp07sbbLOIXrx3P
vRNQqLvypvMecVoKkxLQToFl0h+5lTgpaobhlrdk/hOZvmXE0Ze3tSi8p8C1
vftAmviW91WXLx8pjGnYpvTy2Ag5XPO3oIvCyB8rUQFxoPX4ncvdFHKuF2aV
EvuY6Kvt6iHvM78wK5n4mIZP6cJeCm5Hg0TuEjsp51j9/ElBOdj0UTDxfplv
XRUDFET6l0V5Ee/8pxpwc5hCV54bc4R4c4/DNPtRCsOay4/uIzZtv5+87B8F
DZN4853E+mzKYHScjFf/6rWVWLN4WvMrMRpbUo2+biJekmrpfG8ijR8fazMt
iOffC/1zRJKGmV968f//lw+pur16Co0lfrPl/n+9rM8/VXEZGgeOaGdbE0s4
rS1plqMxS1M9ai/xmPWpHUkzaHibqdQ4EQ+aZH3ymE1j+kWztSeJezS6/QwV
aATplfw8T9ypvEhOWpFGg2Zq723idpmDT9qUSF2Rrq35mDjh5F75swvIfA+e
1SoiduTbXJ+ziIaT+Hv1RmJVXaux/MU03E8XKXQRf4mxPLlrKQ03za1j48QZ
f807+5fRKDDroeeS7+VxcP3uOyvJ/Rw/PNEjHlikb9ioTYN1YIKiP3Fh6Jqc
Yzo0Vtx/WZVA7PdVQ2WKHrk+Um5fDbFIjpqUhRGNHrUD9rNIfFVPVwnoMqYx
OjRUa0wc4qPUe2k9jcRfhvM8iKUNZgkqLWisTBqNaCRuipezcNhCo99DNE+U
xHO4iHTJ2FYa5WlMuQ6xfJ3YA4OdNLqOzY5MJl5k1Xcs3568j37YqniyHz4/
//ZupwMNrSVU9Dvi9Nmfrfsdafx+tfCLCtlfGm861q5ypUFpUGueERu6cCak
eZE6zFX27CeyX0XYdWfMfWjM293+T4fs75rlVV8/naFRGV7jeI14c38Rd+E5
GkkOg691SD6wPZccFxdKY51n98gTki8UhA9kDa7RMHItOSpB8ssb0/gLrWE0
3thk5bkSO0pGuM4Op3HFqF+g9Zas993g1bdJ3Xd2TZlGB8lPmkMBKSsTafTp
O9lbkvw1YOf7X8MDGubJCgfKiP2UTohMTqFxciiReUzyX0ja/vqLuSTeGmPi
rn5kI7FC1+lMHY0Hk5Y+TyP5U77NVmvb6/+/33iCCcmv4QM+Iqr1NELmGj1s
Jw5ZmhfX0kxD7/ivr7O+/n8+GoIVHTR07iodfdTDxjqXpWadv2gY35qrs6Cf
jYJgi5klQ2T87zPKbcQacS4f7vwmderbSXKR5DxY1PwkEOM0Vkcli00bZGOK
wcLC2MkMzKdLTVswwkabzNwlVgsYRO5x+Zo0xsaupfpDaosYaLf8Yp8l51Pj
+j01Y4sZJH2Tf7iLnF+VvvccMpczOK3+e5WcGAepH2bETFrL4Oyr8MyEiRyc
KZCeXL6N9AXPJNfJT+Vg5oGxb+oBpE9VlNI7PY+c5z0d95oDyXjLw+5nlThI
9Ctb70v6nmPli3UClTlQvxdwv5b0TVu19t0JI+ezMXd0swPpy87vv7axVJWD
Y6bDaZHJpC+Jev3GeSUHNYv7XESaGYRsFPH7YMzBqd73HwWqrWiUOehi7MZB
oP2IyYklrfg3qyDhvjsHVzgySZLLWqGT7rd45BgHcSkG+w00WhHv+VIl/wS5
38FIfpJ+K8L21pYa+XAwm2tR6769FdudEx7eCuKgKCc7WfRsKxSrbCYvjOZg
7OS5oyvqW+H0xfcAzSb1xgeJovtBbaDlxdq2mJN6dOPT06JL21GVo+I5+roe
ulEmY+fetcP1y3+KEqQ+1mduzEgJf4PHEXcmXhFphNrU4eiXeh2wOXHAzzyq
EbWrtn0e+9GBiSeMSyaubcLWjVVPVkS/xejbtPvWnCaIWf74KWn0Dpze0U18
dS5cjCUn/fn5DlIOJ3x0T3LRflfZrN9SiJPHkt5cecpFUU+s2tFtQsQbrVa/
msVF1MbZUsLtQuTvvSFyNZuLHcPS9Q3WQpiYPjYLzeWiZu+oVZqdEO+nSWgF
5nORuUBg7+AkxJq4sJ02ZVycy77m0+gvREp0DVLqudgrKbF74zkh1oda60U3
cLH2UPDa0kAhfu7n5V1p5KJ/uu+ftGAhJvZ+0nDlcuF8+kjw5VAh9Dw+6y7g
c7HN0PjGurtC3AmR3O3fzsWyqBKP5xFk/pt67JzecCHZq7NDPUoItfDqVssO
LqqSVsyQjxHC5lTUbsV3XOhMmBvzK0GIoAGhUf4HLmbYR/m5JQkR6++lHfuR
i778afvfPxBCXSn8SWAnF+kukspNj4XIWNkoatbFRSjroohZshDbQyO+LfnM
hZPC+PvSFCFKuOusp3zhwtTLr1o7jTwvK27Nd2JlzuDj9HQhpKSuRTZ2c/E/
YmajwQ==
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.515987399396301*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3dYU9naxdWLg8I4MpZPsKCOotgLjnBHmIXiIEMTGJRRx6uiIE3RC9fe
wEoTxIKISkcUUaoKKM0kFEEgPbQEAkgJkCPK6JXrfDnn7Fn/8OQhOdn73eu3
1s5cd38XjzGjRo36fvSoUfTfvzW3Ok099jQfu3cxwvSQO/X7CvlwZ176w67E
MDyd4uPKZVpHUXw5c0zwcgF5/1k8/uvWyZkBAtyLo3UeCfrrXYoyBOT9l5GW
4++Q3ydAYACtMPzPymUkc66QfD4SA/v251X7CJGWSusa5j2ruKiVIsRd5nnX
Ef1pKEzvgxDR12jdxMbgD8aR60Tk+THg/Cd7uUWkCGdO04qF1vMTt8ZLReT7
4rAk6tPRijli+HjTugdHv7DZHQFi8v3x8Lqke2dNqRgZj2gl4FzdI0PbWRKy
nkS8TNsQceOoBIkJtJJgaTjOhc+RkPUlY+vqYufyJVLE3KKVgp7YDxsOXJeS
9abiPi9mWPA/KSLCaaXhdut8R9dAGVn/AxQUT42wkspwPphWOsyKluaF2DeS
/TyEhw5PdramEceP0XqEo82zLZ+uaSL7y0CaY46Oa2YT/A/Seox1qhW/e65q
JvvNxDylfKdXSjP2MXqC0zZl4feWtZD9PwVHL/VZVGELljHKwtWzNtGeq1rJ
PLKw+cf4zz+LW2HMKBspOxZWrT0uJ/PJRlj/Ss9fxiowj1EO2q44TlZvUZB5
5WBT7DGH6U8UMGSUi5hdfYf6/lSQ+eXCIcAiVN+tDQaM8hB5ZejrscdtZJ55
8F1ynRqk2jCFUT7sL9w5YOrQTuabj9L8rp9i4tuhN5HWM5zdFv6733A7mfcz
jB92Sv7GSgkdRs8hm7OjwDtMCdaez6G0Xui5VKbEWEYvIPH4Pf6vuR1gjiP4
BRz1tC64eXWApaUAFt1ng5fldoA5ntMFsNt1L0c+vRNf/kurAGsH+62fHukE
c1zHCjHJZ8qjV2WdGP5IqxA/J1/ee+5LJ5jjCyjC/QtHjdWbu0CpaRXBtKLN
asK9LjDHefAleJGFPm4DXVD10XqJlJfPJyZYvgNzvN6vYOtdyC1OfYeeLlqv
kJabmec+/A6ezHkXo/eTSaCNfTeUbbSKMelxbfzQw25y/iXQj0y85qHdA3kz
rRLsdipsGXbrwXLGD6U4/khHK/9JD/v9vqU4wUuxbXnfQ/xRiokr0gYO2vWy
fuspBa9yW0Xj1V4sYvxShlPT52RrC3rxjl6eZxlsj9kmCFf3Ef+U4XxVedKD
o33woJfbUQabn3yiTxX2YT7jp3Jk1yYbyf6hQju9/D3lcA22sPe2VyGJ8Vc5
rFZV3vxnlIrdj7wc0TYTrAZaVJjN+O014rWzpsbP7UcLvb0/XuPLnuf3rnv3
k7x6DV8ruU/K437s2K5R42sYmAmDKxX9mM74kYMyB8HIGf0BSCUauXHgcKLB
13zHAG4z/uSge1yOXsCdAWzdopGIg4OHhlfqiAcwlfErF7raa932TBuEgK+R
CxcdoS++9bMZJP7lYvdNakLwkUE4O2lUz4XbHzOebckdJH7mwcn/xJgQySDq
ajVy4OFJWXvIYV018TcP/ESjHdFGatjbafSGh6/7AuzWWKqJ3ytQ+2nj55jt
alRXamRTgT8lU12XBKpJ/lSg9/C6kPwramyy1ohXAV+9QcmkZDXhoRIl8tCi
6flqcF9rZFWJr+bu1wJ5apJXlUj6YB70Wa7GhvUalVXiLydz4eFhNeGlCidM
TcystCiUFmv0cxV4v3CQM4ki+VYFUfO0jqWLKFiYa/SyCkeU5/T9TSmMMDxV
ofPQb9qcTRSKCjT6ZzUKXB7eGNlKkTysxgOnj5FD3hTMTDV6Xo3FXqqRjwEU
/mR4q4berbNb1p6i8CxPozVvcJ87sH5LGEXy8w10+UVTXlyjYLJao5w38Psp
5wl1h8J7hsc3iBhayA9KpZD9VKMVNfA7bSXfmUuRvK1B0KRQ3pmXFMtLZg3c
4/yqRVwK/QyvNZAvPxSyq4ZieVlciwf2mUlxDRTJ51rsuTpuQaiUYnlJr8Vv
WwYF51oolpeuWryy8sxqb6PwgMbF6C1cj30JK+6iCN9vcTLBfbmyl2J5SX6L
jcenX/AZoAjvbzE/Ktkhd5Bi83hOHbr+mzX7sYoi/Nchqsb9SaHm/wwu9+tg
erRh840OiuWluQ6//RZ08brmNeO/CfU4t80jaamS7HdZPb7zMPxBJqdYP9rX
Y8m5y8b+rRTJi3rY8IxvJjZRrD/D6jFn0aofdWVkHo/q0eD1KaKWT7F+ra5H
wofSjMM1ZD499Ziypfj9kkqK9e+4BnxRfluaWUbmZdyAOa2l06yKKNbPmxrQ
ul9U7JhN5ufZAJ/K3csmp1Osvy81oHSkzDk2jiL504DY1Ks/Kq9TrN+5Dei8
m659N4IiedSA0EZ/q6rjFDi0///BR9cvPQndXmTe8/iYFt66+/M2iuVhAx/d
UWr+gDNF8ooP46yJ4Qs2UCwfQXy8/T9Dk/8sJeeRwIfrr5M86gwpjKZxKeXj
1McY3Tc65HzkfNiv33e76U81Smh+vvKR/2pnelqbmuSbAMOb6p3f1qpZniwE
CDo7beRrrprknQB2TfKdgvtq0HiZnxLAYthEx/iimvSvAF28U5vrfNQsb4UC
mKW7XFzppCZ5KMAJg06vmDVqFNL8fRZAlcg9Pt9ATfJRiFnjUheOGqVmeTQT
wtFrRqhtySDJSyE2LpTH+F4YBI2n6VGhpg/3j+l2GCT5KcT8oNwDvfqDLK/5
QniOu/J0SvffeSoEt7vAdVnOAPJpfjX3QHfHhM6oC3/nqwh9enP2uTkNsDyb
iLAya8Lp3kkDJG9FyFujpSwR94PGe/W/RbD8wItwjusn+SsCVT/2fcDv/Szv
WSJoLeqLOjCjn+SxCCpvc8tZTSpk0fwPinDI7te9H2NVJJ/FKDfqiWlzVrF5
sFyMMQs3fi0cr8JbJq/FqE8tt+KW97G8HBCjOuNT3uKTfSS/xShw3CXYtbSP
zYsMMVzyPqmyJb0kz8UYsNCzn3+7l+WlV4ylbuu+8d3US/Jdgu2BLurTmj5m
eFkkwS6/Wx45D3pQxeS9BEKjkLpJrj0sL14SuKf2GPZp9ZD8l8A8Ol7q9qQb
3TQvaRLcerFOn+PdTfpAgssNqYPzDLpZXjolMAtMct9Z8Y70gxQrcyZE2R9/
x/IyX4qr9+wWP/3hHekLKcQLwnb713axvOyVwrpz1ej8f3eR/pDiWHKdyXyj
LjavEqVwddq9VVzdSfpEivLrt5xPnupkeVFIceKI/ITrgk7SLzLoyBIT5KIO
lpfZMoz4mLqvu9RB+kaGyp9iXfebdrC8/EuGVpsVn2UdStI/MljGGza5xClZ
Xu7KcGNeUdKbHUrSRzLYLtyRoj9OyfLSJMMX8UjA44ft5L4nwzn+PaN0q3aW
l+mNqONem/mvjjbSV42avuw+qX2pjeVlWyOMzQOTlAZtpL8aEWZkGPo4V8Hy
EtOIrfLvA76xVpA+a0RHS8O6sBdy9j4sbsSuCJVzqLqV3Ccb8e0F/u04s1aW
l6lNCGifcX+TewvpuyaotYU/j73ZzPLi2oSxXv7Dh0R//35owvhZVmXTxjSx
vEQ34f35tX/ctm4kfdiEj41xU3XtZSwvDU3YUiJbaxAkJf3YhAp+iMl7roTl
Ra8ZD/QW/+r7l5j0ZTNW6k2dZbtazPKyuRkJ0TOTfvQRkf5sRqylV8XXIiHL
S0Qz7orCZm4aLSR92gzfBeJX32lyjOGlphnSV5lLwrP4pF+bYRq4IumGIZ/l
RVfzu8asachlqIH0bQvCj3+estC+Abo0LrYt8FN4y9JL60n/tsB73ctI5ex6
lpcrLQh63rk68sNb0sct2FBjnXH9Sy3LS0ULNj6f2XzSq5b0cwvC3t3pUXa8
AY2L9Tet6PKICF7fXs3yYtSKeWbaQRMtq6FN4/JLK1AsN4sPryb93Yrm0QZ5
s9KqWF7Ot2Ltd353vdSVpM81zxPuW5a7uRIXaFzKWxESsH/G2LQK0u+tKMm4
aFo8s4LlZbQcm0ce2o67yCN9L8e0iROCE7V4bL9YytEY+u3NwTNc0v9y3BRP
/npnD5ftlzNyRC76btjWmEvuA3JMXr/8/pU+DsvLKzl0qcN2kWUccj+Q4/3y
HyxmPuSw/TIiB68mObz4CIfcFxSYsyZGuN2LfH6WAtuzO033xXHI/UEBA5NZ
Q9U55HnmCozf4bs1WMwh9wkFLlHXZq4Qclge/1Cgeu/3E1M2cMn9QoE1MWln
J2/msnyeVGBv3FyFMpZL7hsKZDyx3qtvw2N5vaOAeLxK5XaZR+4fCqw4eHhI
BxX4fwzvqBk=
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VV0XB/CSSCFleBWZQlGKChX6ScaSJMWjhFAaNaEMGTJVKpVMT0SG
iCRzUV3zcK87Vki4KqQU55aUinc/f93P97Pv2Weds89ea23VA74O3kIzZszQ
mDljxn+/Xc//rL7As9z059S206sbOAgsPvnCekwdch9C5Y63chBuf1ZeYWwd
roaU8x4xOYhU+WEuPGaO8kNJt827OIieY9j9c9QRSFVVKvjKQUywk+a3US8E
Dq71P7qYi5iKoW1jo2cxcV/7QYkfMe9R79fRSEhbKwvUjHhQezDy88nWKEz5
fJi/woyHmjAt6aicKAwbTfSut+FhTCfLSmFvNGzcVl7xduLBJTax2KopBqf7
bwqEzvKwyiQkIuPOZUyUFBTZFvFwdJeGdL56PCJuc5csWPYSC58JKlw4txEm
qnRgltYrRLitClusn4G6ddaNuWYd6Bm+t3DkYA5Spv4d3nCrC8/7o0fOiBVA
ZMeukl1Ob3FufX5Wt0YxIk4/XLFItQ+8iqazztMleGWnv05oRT/4v+qDY+jl
MNY04+5nv8PtOfoWCYeqsDv24r3bXh8gwXTV+2NUjZZlXtPqqoNY5TbZs5n/
DBvXXbE+QRtCmEs1/44RDXvTRo9FOAyjzX23l2VWLUxnr/ls8vsThm21WnoF
dbCuj1RxCBjBYZmuZ9n7GxDz+7tO5e8vMHv+k1lf3whho+OifntHMbrdgcaR
akZUZ/P31WZj+FsVs0UisAWTpV/e9LDGYOov+2VnaAv81qa/buSMIXJtVmJi
ZAtWOhmkFvLGIF70fFj5egtiNnsF+HeMYXHW+PU12S1oaS4J+d07BoOrnm+d
mC2QtaxzafsyhhMe8Lun1gpZUV+fc3Mp8MUmcg3prRhPtV85DQo3DBgiX9it
sNeW41ZupmDmmXnw3utW6N5Z//nEFgrZNds0Jd61wl++1K/TkoKPb0bOu5+t
yBk90pu8nQL10ib7qmYbShr8kpguFIQy7mS+D28DQ9IldO5ZCqWMUzNTYtqQ
JnKhKN6PgtcvSw+7q20IGs8xkw2g0ORAqTxJbkPWvB3JiwIpXJ5tmXHtURvC
lNZ/kQyjIH10NH1DTxsC9q7iF1yhoG5gduf6ejrKkCJTmElhv1qUu/YmOlRP
CI1P3KOQItmi3riFDtueHmOzbAqSQ9sfTtrRUVEdMpObS+Fn0j/Pvb3pCND0
c+wtoED/dZJvdJOOTyPivPxyCqef3VX/+JkOgcKSl2ItFArz332MoOjoqT7+
U7WVwtBtjYdLJuhIczp9fn0bhX0nCvR3CTHQusQ53p1BwVK50vK5PANjtV/n
pLEpLA5n+iRYMLAywqK/qZNCrfnfQtO7DPTnTau+HaJwU752ZVA2Ay5qrfLF
H8n7GYksLM9n4PSZlNSIYQpzEsQLtcsYuDV0atPSzxTs3ysUyLQykLFabOau
rxR6wzfmfxQwcFjrt9mx7xSKd08tX/qTgey/I+zl4xQitOryXP8yYLUsYfA9
sQbHJo8r2o59euvzdk9QOKbyz/0axXakOrmFLpukMPk8ICfesh0Lz7o5RE5T
YNw00qBva8do8xVzrRkCpB+czp69sx2lk97VDOLNkjHZgXvbIedwzGC+kACx
rolZXifbYRBK3xchLIDcn7LM9antqOMpm6uKCfCRdU71zN12LD2AY0XET7OM
Mx9mt+Otlr3cxrkCuG5ryFB71I4tsRmjtvMEyE7l3RVvaMf36csl7hICrNkg
SON/aQfL89se0wUCnAr+y7vyrR03ZcOdXxAXv5gz1/BXOyK48xONFwqw2lLZ
/6owE+xK/wY9aQFW7rK126jAxNctx4dFZAU4mugUOaDChHnErKYA4gddB57G
azJRIbumZ5BYy/285pAeE0WVBU9fyAmgeTx36pY1E7mnTurskxfAu/jxOtgx
8XpK481z4uxvNUc+7WLCOVWDprxIgKWBvNembkyIVnkaviVWiZnx6IsfE+mj
SUwoCODeNm8gOYgJkSNOmxOI70r8T8E8nIkvBjojg8RKCToxqXFM2HEuDUcr
CqCQ6eJmlcWEULpK6OMlArh88L4tyGPC3jm/aII4ddkpeloREz52q2WNlQSQ
L4ox/P6ECcmdRdEviJ2pm8fvvmDiyeKDN6aIk9alZ21tZCIiNZlrpEzWq7ps
fiabiWn26EQx8e6pFxa2r/+73+vuj8QJm+lBE91MdG6vGVdSEUC6pX9o+xAT
n5Qk6FHEUq8kaZN/mVCLTPlpoirADvnFP3JmsWDub3PpEPG1vRord4qxIN4s
s+M6scQ7o+T7Mix4PL91vovYVsOK6bCYBdXr0r2/ieN8HISnlFkQlrYKUFQT
YO6oz0nHFSzs1z5o5Uxss+Zs7rQuC6mWqhfOEMf6hb59YMBC8rLVw3HELVWX
F+4xZiHx7rnYbGLRP7etZ5qx0DEyuPcpsSUyLxRasZD3xNOTSRwdUVjmtJ2F
E4pd6XzixsbKT0K7WMhP0pOkiIXF6lWKnFkQWez8eJr4zdodC3+5slCa4Fsz
b6kAj/d3zzL3ZGGbzUYDOeLYS4fGr/mwkLsgT0mZeH/Zt8Gu4ywMLsr30yTW
7wvtVD/DwgW+jtFKYvG54m2+51jYaLDMV5f43brk6qchLGzaFL1gLfETN/WH
sy+yIHPCWG0dcfzl4nT7WBYeXTXK/G/8YLlx/L9XSfyVftf0iE34LeGDN1lQ
d+4Z1iGWmbf7jF4yCyqrvUuXE3/S7/cKTmNB127GZ1XiWvfje5rvsZC96F78
IuLkK7+sFuax8I/1puz5xCcqoja4PmSh5n2LhjCxef+CFXklLDCtDGQnyPtQ
EE9X/FbJgvbSoNMfiQUG2pKbnrEwLyDOpPO/9fComI6tY8Ehyc2/ifhunBnF
a2YhVvuTYimxfyXznVI7C0NaanrpxEslhhrLOli4NHrmni/xpOGZyum3LLy0
CJreTcw+MJ239R0L7svntW0kvlD1vzj+CAvVpln3p8n34/g+K2SFgIXWO/8+
7SNeIanr6z/BQgbnz8bnxCN66loiM9lwy+y56E/sZPUps2AWG3a/dtjaE9ft
K168U4QNpWypiOXEKTHG4nfmseHxx1v/JfnehdOEojZLsrFyarTkPvHJkpa/
g1JsXP9dknae2LLHcVRPjo1Tatyn8sQlgsU+HfJsyK3X/DJA9tOSOf38YAU2
HqhmxT0m/r7mOLdZhY0Nb+ZKmxNnxkaVu65gI350m8kesl/F07etmrWKjRUn
0jvliM+VLrifp8vGp1li/a/I/rfrTUv+ps/Gtc3qG3YQ/1lbEXTJlI0Mlp/I
apI/9vQNbi7fzcas6EK5LJKPol++P7bdmY04xgILW+KKVn7SgAsbHZJ7xr6R
fCZX9uaLrDsbxsJXn20ifh3LTPE/wgb7B9bWkXy4Z00FZRhK4imTuhFG8mv0
slJFdjgbVS0L4hcQVygWW/lEsjFU7CKeSfKxnOiDtORLbLg/+RhcTfL16+40
m1+32BB6LIre+WS+qKjMp3lsXDDste8m+T86MILhUMBGne5WLUfiCt/QiU8P
STzdpaF0Ui/kXM5vVyhl4/OWqtxyUk9erzr+K+gZGxFQ6gsQJfN1Ou404bIx
I1ZNtIzUpz0r1GfSfpPnyxl/PO8nBZNO85j4KTbO6EsxzEk9VI/ylvCYyUHI
xTS14B+kv+nNXSQkyoGUyaWoAVJf425qrTFfyMGFe3M1sygKdb9WebYs52Cx
36avrZ8orGrZ0MjezYHcx8jbTd0UZP1ctmU6czBf2y2s+Q2FP6pBnFN7OVAT
2lTY1EWhNaimZ6EH6ePPVza/6CD1fzV+OB7j4An39MI0HoXURPNlXREc2PB1
lYXpFES9d1zqf0Tm1886FlVF4WmU7pfwEg6uhGdlelaSep67YKdaOQfbU9v2
mFZQYA/x5D2fcuDmYGE2XkrmO+Kc94GcI3p1RZduf0TiPenRPETOCRkqCfrl
ORQcg87M/jqLC/1p7t9DNyiI3HE8fE2EC98lTxLl4ik8qdFvXyXGRdw2pYr6
axSUpiYSfCW5cLhqcWlRHIWPYcHqlDwXjVyDmNJoCkHRUVu+63CxfZ+yTGYQ
hXs3ksInnbjYPeurrJcXhXlH7pjyXLiQvJDzsP4AhbNmmdMFrlxIOHXdVPWg
YPXtQYirJxfxfcJWna4URhyfn6ed4CKwJd9Nz4mCvvzAqegoLmzSgtNu2lBo
SV9zYGEpFwNbU6qldSh8LWg305bkgR/d5qoxOgZFL7GycSke6HomFeqkP96q
aKFRK83DdUfNi2qfx5AbVyPqvIj8P+930KKhMbgeL2BEqfMg1KE+/p3014xV
l/b0b+ThbNSGAweYY3jw2PxI8iEeRgoplcWFYzhYWX1DpJYHEY9QHTnPMbSU
N9m/OfQSwrdd/heaNIruzBedDYqvYCuZ0bdW8ys6w16xcxtfYaOuCGdLwQhm
7szao3/0NZqe6UqZKn5Gt6RbzhulDiiY2osJdg7j7gtDr4CmDtwaXx4rkzAE
mf1Tn7WDO9GZree7L2sAZ0b737/S6ILKyEOHDe3vMXUq5LAOowvm4X2f9s54
h43vRKr+DXsDKaVo583SfLhbPPSfqdWNsZGAO57338IwcfNUSF835K75O3NF
urCx86r0/ZtvcbbmWnNm0Sssk5hIbt7QA8W7T+8IGGSdV9sNTX3tgdmQSWHM
Dxa2W9Tl6CT34g83cujKP3T4jAsWNqb2QkplgMGwpiMiZ2nYvrReJM7395En
fXzV7CiXK/d6IXO8k82So0O9yWr+cGEvPqwbZ7x42YZJy/Zz2bW9eLA3N/2+
QxvyrDu3KXzuRZOXVPqjPa0Qsv1KzdnUB3e60A+PsGa8LDV72mnaB0FJ4Q/j
U83IUUiKyNvSB8VZMrc1DjTD+jM52tr0IXaZTrWyeTOuXb6xLsaxD44NbopV
c5qh0LouYPbRPmR3BN4PTmjCOsugPzOT+yC1QGTAt6IRIkWsBk5qH+IT/VeK
5DeiQ1b9amZaH6z9XOMe/NuIwAHGks1ZfUiekMleEt6I2kglhBX1geuolfzQ
thF29bXhUw19GCw6Uxww2IBDpnNEf1PkfvvcBxnqDRBWXPIw9XsfTi5pSvy2
qAH3JvR2bZzoI/1r94jm/Aa8Ldp79/wfEv+WpITSX/XIu9ahEDyLj2y3rQre
rHos+atdNinBx7poW4sVIfUQfcP5MKHGh3xZQ9Tud3V4bfW20kqdD+sBb55s
Vx2yywcvJ2mQ8fSfsu9ZdTC78VvXcDkfwZl6F7Of1SHYWiPEX4cP51cKm+pT
6kBVnJMdN+SjpvfJqtOOdei+pWwpsOVjn6i9UQ6vFlUjqcsO2/GRbDJ6X5Ne
i0QLOTH+Dj6qvhrHV9XVwn5CnNHuQK7fTfVKlNSiwWVyZ74zH7aRG2ov3KhF
oeorV3cvMt5GGw3aVYtLgfbo8OZDfK+vi4htLQ7y6Cp2h/h4GaZ1NNO8FipR
de+NjvAx53RLrJhBLRI+Pjr8v5N8kqdnTmYuqkXIo8t+zCA+YgtcOOPvaXCZ
I+JkEcKH+Zh67ZUeGtZ7hK+vucCH7m6jkDUdNAgWnvudH87HucvbPEvaaDjo
7x0eFcPH2QIxjeASGuxMTK8a3+KDUdDmsSGKhhWJ1SdKE/iYMZWo0BNKw5xR
A3vtRHL9mub6G4E01GXoSMun8PEhxnJI5yQNBsIKKd/SSXxKwY/19tEg7ZoY
eCSDj0J1U1lXJxrGyhfs68/k4458v3+KAw0PDs1RZmXzkaelaWRhQ0MM7eIM
y1wS/4BfZpk5DV6Lpvtr7vPh0/ZLXN+UBrPTgfVr8/mQkQkJbTKiQZk+nv3g
AR9jtKZJH0Ma/g/84iej
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.515987399421302*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1lnlcjWn/x2uIsaapRngakyUxilH2+CRPiNIYsgyeCaEsNYhC2bKNLImk
TXtaTfuuqzqnU2ft7NVpnUE0mDCWkWV+576v+/f+p1evs133dX3fn89ltd3/
x51fGBgYmBgaGDB//58TdacNSvJlxOtnFkSnFnn7+crIdvZff2jao7+UWsrI
xQsMgSjgjd0zQCXl3n8SIwY6hIb+KiXxsQyhCO+T+vRDyr3/As7vNX066J2E
BBxiCIPSz26iUY6E+/w1jK+4ec7HS0LS0xiuw7997y43cwmJY7/vBm4mnw3/
WSQmEdcZInHG5vscVYiY+/4oyFdu0k22F5MTIQzREMQmTrbtEXG/F4uvvi16
PzlaRPb4MsSjcNOiXS7uIu73EyB2tUxfbCAi2VkMidhhr2qrLBBy60nCp/ef
1j3wFpKkRIZk9I+M0UyxEHLrS8HXU78oOCVsJFG3GFLhcbBF5Hy8kVtvGuJf
e+Z0TG8kVy4zpOOdxbNfrbsauPXfxe7/HRrJu95AQs8wZGDzxpkHepY0cM+T
iWWWA0yCXwnI0SCGLPwiXNs7M0XAPV82phlk+Z/0FBB/P4YcdEdaBscZCbjn
zcUm62STvOJ64s1yD4FPi63P76znnv83WPT7jwoyqye2LHmI8djM92zgc/uR
B+M3lt1Zh/nEhiUf2z2ee8RN5nP7k4/1/xqvaFLzyESWAtyb7xI78RyP268C
/CmJ9XGbxSPfsBRifqHuxJwHddz+FeJqpGmka0QdGcNShMEDKkePX1LH7WcR
BM6JrkYva4kZSzH8ZytdVibXcvtbDHFZ9sOla2rJKGOGEjhn+ZivNqjl9rsE
Xg+PR9Tn15ChLKUIDzyxYPqOGkLHsxQ5CTYhP5nWECOWMhj0j+9zDSOEPY4z
ZXDueMJP+KuaUFvK8cyXdyjStZqwxxNSjnO9HfG8nPvkQz9DOZYXfro8c8h9
wh5XUAXuDz+dfWxfFXn7hqECU229n1s3VxL2+A5V4l6w6Zm38yrJyxcMlTj3
dE5ZQFwFYY/Trwoqy/cfjhpWkGdPGaoQcMpz16o95YQ9Xt/78HrwY/8LeRnp
7WG4jy8XddzxtS8ju9jzrkb6v12Cvtul5MHvDNXIDvnuI8+wlDt/glKXdb6x
3iWkq52B4E3+kPA8UTGxY+ehBn2BU2ym2hfT399bAzvPzU77You4+ahB8hpH
n6FGRXTeemsw6ZCNfN7+QjKVnZdafH0jJMa9tYA8Zpa3qxYH1eMcTy0p4Oan
FuXuE/aWZOSTncxyH9bC8YYu0d0sn0xi56kOr9Iie46czSN/MMvfVged9mS1
qvM3kszOVx1yS7Pjvi6/R5+nqw69/Qrf0Bu5ZDw7bzxcalpjc+hADulgHm8L
D452P2zNXJPN5RUPxXb//GA8MYts/kmPjoeB21Z8bB2WScay88hHVczSHunT
u6SlWc8GPna/Tt+XLEgnt9n55OOldN2N0ZlpZL2nHg0fYSuN9ludTyXm7LzW
4+8vL/cs35ZCVEo9P9ZjuNeUU/tXJnPzW48Fh6MP901KImt+0COvR4boWU+o
cSI3zwL4WXkuOfwwnjRJ9bgLMK3f8rF5Wiw33wKUTj98hO8bTdxW6REL0DNd
E+U6I4qb9wYUbz0isTeIJKJGPSsasLrNocioIYLLnwasiApY++BKOFm+TI+g
Ac++3vXCtOYy50MjiNsUxG+8SOp5epY2wvLv4uhXr0O5vGpE0L/uc1OXnSTO
S/TUNmLfpy9Gb9p8hPNFiKMZI7pz0/eSmmo9i4UoMFy6cL9oHZdvQjSM2vjP
UF93LHLUUyXEqwS/tQef+OAj65MQmWPCfaS2h1FZrme+CEkbfj/S2xsCmoci
jDC5aHFpeijmzdVTKsLVRiOrRRUX8I71TYSl160SrR+GoaRIj4MYJcGbGy1G
hoPmpxhXo68Inn8fAftZegrEaH6VMtxo/U28Yn0U41Dhlb7xR24h/zc9MySY
dsDqnkPMbdC8leD5Y/Nwq4oYsL7kSnDujnHBgT/i8Jz1VYIZ390K3PT5Dlhf
pklhEWoSsPBGImg+S7EkeXj+mvQksL5kSGFUmTsoLD8ZrC89UkyvmtCf0ZCC
u4wuk2UoO+4tmdGaCuq3DEkJ1xpvP04D60uKDNudtYMGv08H9V2GUX5RNwUG
GWDz+Nsm7EhZeNZjeCao/024vurE/MJvssDqcqcJp2fPr5JZZ4P1pb0JU/2f
xC1bkAN2/kbIoTjzt2+ZSy59Xls5Fl0JW2275h7YeXSTo2F6b8Ko7b+B5oUc
B64dHGNjnwd2PsPkCLh5+nZncR7djyw53rrUNG1dnA92XEVynHwTqXPh59P9
6ZVjxTdTZnq4FoCd3y8VKPONGvCVrIDul40Cc7Yq7xh5FoKd5+UKiEytCi11
hXT/dilgGjclxv/nIrDzfV6B8xVXXts8LALNHwVuo+NXzZ5isONer8CFJ0ZB
Z18Wg+aRAi4OBU5+R0vAZ+Z/gBJdqSMnyfpL6H5PVOL13blGpidLwfrgrMTu
z9OHjB1UBppXSiSH3/XKDdP3COPHaSWkzhs8ZxiX0/NIVEIZ+H2ga3Q5DBld
apS4OryvbrRlBT2fLiWEDm/n/JNaAcL481mJMbtfbE6eVgmabyr8aTl80f7c
SrA+LVIhqiD36MC5VfT8tqjwt/m7SxsqqsDo5RisQvCSQ81dTvdB+1eF/ddj
NhkJ71PfKlQoXd+5T+5WDZqHKiyY2+ijUFejgvHvvQpB2n+d+n8ioPmoxmhD
x483Ogn1cZ4af5j7SxO+rwHNSzVu/xzHexdQA0bPuYFqpFav580rrQHNTzVm
2ZqZbemvob4WqyFd7OD1nWMtaJ6qYZ5RMPzUqVoUM/6+ViNZ+3Rpel0taL5q
sGlYSk3FwDrqs70GN334q9pX1IHmrQaC8KHB1WF1YPSedVCDe8dcMEVWB5q/
GniYfX71wYRHfc/T4K+zbn1Na3mgeaxBRbSHb3sUD3mM/30afFsfv9VB3xM0
n7V4dzwzqfA/fJoHdlrwKxOMO734kLF5rUX2rXlFySl86st+LcYFRJh0PORT
Xy5rMfT6goy6afU0L7K1ONLT2mThV099EWvxJPiE4+z8eurLn1p8NlEb1ryu
p74MbYbsxRD78fMF1Jepzfh8fo/LnuMCCNm8b8Z8m0h+YLWA+uLTjP7enqTg
LxqoLxea8cg38/hjfS88YXxJb8YE8QW7I2EN1BdBMxpejjWcIW2gvjxqhred
pPLlqEbqi1ELsiaJT+9Y10h9mdSCZp3IYUh0I2hftGCdAFZNukbqy44WpA2W
BJR8I6S+nGnB5eqFV894C2leJbXAvf+woVOakPpS2wKHat+2O71C6kt3C6ot
MpccsBWB9ksrRrZtz4n6RUR9Gd+KYyk7Jj4qEoH2TSv+Kz5okabvAdaX/7Xi
U1B6bM98MfUlpBVveq/NLzshpr7EtWLSnoDVzjViro/0ry+2hXSAhPrS1opx
Wc+tti6TgN73WuG9cPvQmDAJ9WWsDsmO719VNkm4vtJBvC/1W99RUurLJh1s
7aNDXm+Qcv2lw4V11lGR8VLqS5QO9WLy3q9LyvWZDqJIu/OzrGVg78NaHXbu
G3GqYLcM9D6pwyXTX95Z58ioL+ZtqP9Lcexan4zruzbccnvi89K+ifqyrg0D
c98tzwlq4vqvDT/Zj9Oer26ivkS0wen2iuBJhnKuD9swO2beg4hJcuqLog2O
gb8bDVgu5/qxDYfLmx/Z+8ipL6PacWD3zXFml+RcX7aj+MmZBStz5NQXj3aY
zN1GDsvkXH+24/RnoxCLl3Lqy5V2BJUvDyamCq5P23Ft5K+68NkK6oukHZ6x
5bdGbFRw/dqOi9nX3DceU1BfhnUgR5h6cWCiguvbDrTmZpC3tQoMY3RZ2YGj
l2da2OpznfZvB0xSPox5M1hJfbnYge/uXn40YaqS6+MONGReNz3kpqS+NHTA
Ps+r77WfkuvnDhTrYqriw5VgdFk2qBPP93aYWxYpqS+TO2G8rUphp1ViMKOL
Syf6R/NHDutXcv3diXHrvb1c9DnO+hLaidurr9mOdlJxfd6Jr3RpC8/sUOEs
o0tdJ/YMHF6F8yqu3zuxLCwuKTxTRX0x7MLMYz115hIV1/ddeDWn6HjKcxXt
F6cuzBV11yebqLn+7wLvwPi9AbPVtF9OdMHYxG3G0I1q7j7QhfsDzdY+OKam
vtzvgqKq40eXO2rufqD//HMT16u1atovH7sw4V2fT+QDNXdf6IanxvXSxUEa
+nnLbmjHXZ+XNlXD3R+68VeQcpXcTUO/z7EbCWu/ir3jr+HuE934/YqzmXGE
hvq4pRv+efZ204o13P2iGx8ijK9sadFQP493Y+02M9+E9xruvtGNrqCltgMs
tdTXmG7opniZ5zlpuftHN3Y/62p22qnF/wGWA5sX
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVj3s01AkcxX+1yjhFRWsttqaTHpTeXiV3EurIu22STaYar5yzqawkNDaa
2pNTbSXUZjySV8tqx87m8RuvicUYxs9rYn6zbLKJQUWInf3je+75nnPPvZ+7
5tRZn8CFBEG4a+5/7a6c3Rond3Hg7L8fnhguJaOLw8mDajNwhJwPBmekZLxX
hJGJehfEUxl3M09LyQTmRycttROKTyaYitlS8hrDRjE1+i1ul1UEzNpLSX7M
0fUTo1wIbuUXXNLR/KWDh9SjEWCueMbmZzaTfHlR38hoAsIP+fePtDeR+hXj
pX6t9yF+/KPqqlEj+WPAFp6xlQDMj0ZMu8sNZO9Qpv5w0BMsD3R0SBt8SVaq
rg1f0CkA67nj5oSdEjLKNi9Lsa4YstD+TvPHtaS8VBLhO18CNevsZPabapL+
VBPDbxSCNTb8sN++irzPsHK+FywCq/OVUH2CJHWl/ttn95SBVzLz4YpWObkl
YLp3H10BwdplXodfi0ieXxn9aI8YgvnJ8709QvIvzhGuS1YV6Hbj6/G3S8gh
N/P6vvFqEJEZhzy/KCJDV3ZXZJ+oBS81JWkyJJd0rJyS1tTUQSzbqAx5n0GO
uvuIW5e/BBG882LBvw/IzyL+ft3oehAD7Q9XDSeStM5kjk1jAwh6658xPt4w
s3Z8dMu2EYSbctDE/CaqnD4XstKbwAuP4Esa0rDDbvwX+l0zxOMHUzzdsqCl
U8P81bcFhEecQ3hhHtjK1/uER2QgbgS+W59WBPYmswXiGRk4NVbnzEtKoB3o
eUNV1ArxtcMeI21CZN55ED99tE2zP1dkXSbCSEGzo4WeHIKqkgMZfWUI+qPs
zuIqOXhjOdom6krUCyVePcHtYA2ERQ0NiKHIILtqTSkwg94JibPV6OJRspw6
CgLTF7Kg3hos8M5iW4V1QN3JNt61vw4KvYAnPas6QezSnRiqkyCdtOFelHRi
W45hxQHLeqw8MffWIqYLHNMiE9ffGnBhVNVPrevGNsNO3lrjRsydiw21bOqG
YCx9083oJuz+e7HoIa8HXkvGPx+YbAbH+VnkAnMFiC9VqTuOtcAmed9crFIB
mWrji+QwGXZ3JRk8/fkVbJlPo7zXt2KD7mTKS7tehGzRn2mRt6Juq8fg3Egv
cuMk7Za32uDuXP3EMqUPIW+1NwftlWOh28gYw0GJ+rDtrjcG5QhmMbRnxpRg
FL4P46a3Q3F3tcu4G40p5adgJ1cKouG0DaEeNAS2cf/sdaeQ7GyoQ3vSMPJV
HLHxouA1ubSp2YfG8nbmMgs2hVq/ae88Xxohpsp+vVMUCtdQ/hwuDab0O8OO
SxRii376QXqZBh01LPDLo+DHWHzUOVaTd3D6kk8hBduT8bblcTR817xxdi2i
MK4fNZMXT2NjD7fUTkghKDIwPpFPg1fx5tNXVRQ89rKS7O/SuK3nvqSti8Km
5LLvn9/T8BZH6jcoKDBGrb0skml0zV5dKu6jUC2wNDBKpZF72bX72QAFay2T
1InHNEShSdR1NQUD/+ToMwINz+89F65MUFALVxxXZWh4onQXRX6kkB/MWN2S
TYPBNiNOz1Lgi68SLjmavf2MM8fmKXC/nleVP9X42+QSz4UdcDwfXbMzT9N/
PNHQZVEHVjd+yM7P1/SVf3PMntGB/wBBiINi
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{3.515861667968692*^9, 3.51586170290769*^9, 
  3.5158617415819025`*^9, 3.5158617725916758`*^9, 3.5158619641406317`*^9, 
  3.515940248522266*^9, 3.5159403028083706`*^9, 3.515940353464268*^9, 
  3.5159715674547653`*^9, 3.5159716028257885`*^9, 3.51597279173079*^9, 
  3.5159870313112473`*^9, 3.515987399445304*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["HumanParameters"], "Input",
 CellChangeTimes->{{3.5158621768537984`*^9, 3.5158621795649533`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1.19689396035823`", ",", "0.20214668746590925`", ",", 
    "7.840374588741148`", ",", "0.22483245436904015`", ",", 
    RowBox[{"-", "0.8069757285872418`"}], ",", "0.18712786224886793`", ",", 
    RowBox[{"-", "0.0828259043763153`"}], ",", "13.315981803707265`", ",", 
    "0.20729365656915424`", ",", "4.154819403051306`", ",", 
    "0.2573791697685864`", ",", 
    RowBox[{"-", "0.3808535485970228`"}], ",", 
    RowBox[{"-", "10.979481912107921`"}], ",", 
    RowBox[{"-", "0.19665480379455527`"}], ",", 
    RowBox[{"-", "0.42141500655251124`"}], ",", "0.6584527300961083`", ",", 
    RowBox[{"-", "3.2612384489726334`"}], ",", 
    RowBox[{"-", "8.089020891433405`*^-8"}], ",", "5.819659430757449`", ",", 
    "0.37746715739520986`", ",", "3.023429559876836`"}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.5158621799079733`*^9, 3.5159402502963676`*^9, 3.5159403030483847`*^9, 
   3.51594035367128*^9, {3.5159715970714593`*^9, 3.515971602995798*^9}, 
   3.515972791939802*^9, 3.5159870315422606`*^9, 3.515987399473305*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["HumanFit"], "Input",
 CellChangeTimes->{{3.5158621805880117`*^9, 3.5158621817290773`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"1", ",", "1"}], ")"}], "\[Rule]", "1.19689396035823`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "1"}], ")"}], "\[Rule]", "0.20214668746590925`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "2"}], ")"}], "\[Rule]", "7.840374588741148`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "3"}], ")"}], "\[Rule]", "0.22483245436904015`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.8069757285872418`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "5"}], ")"}], "\[Rule]", "0.18712786224886793`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.0828259043763153`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "2"}], ")"}], "\[Rule]", "13.315981803707265`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "3"}], ")"}], "\[Rule]", "0.20729365656915424`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "4"}], ")"}], "\[Rule]", "4.154819403051306`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "5"}], ")"}], "\[Rule]", "0.2573791697685864`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.3808535485970228`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "10.979481912107921`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "3"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.19665480379455527`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.42141500655251124`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "5"}], ")"}], "\[Rule]", "0.6584527300961083`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "3.2612384489726334`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "8.089020891433405`*^-8"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "3"}], ")"}], "\[Rule]", "5.819659430757449`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "4"}], ")"}], "\[Rule]", "0.37746715739520986`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "5"}], ")"}], "\[Rule]", "3.023429559876836`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.5158621821521015`*^9, 3.515940250375372*^9, 
  3.515940303068386*^9, 3.5159403536962814`*^9, 3.5159716030207996`*^9, 
  3.5159727919638033`*^9, 3.5159870315662622`*^9, 3.5159873995003066`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PcomModel", "[", "0", "]"}], "/.", "HumanFit"}]], "Input",
 CellChangeTimes->{{3.5159728339262037`*^9, 3.515972839700534*^9}, {
   3.5159869386189456`*^9, 3.5159869421101456`*^9}, 3.51598700442371*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"-", "0.23780888909579723`"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.5159728360523252`*^9, 3.5159728401675606`*^9}, 
   3.5159870315902634`*^9, 3.5159873995303087`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Aout", " ", "=", " ", 
  RowBox[{
   RowBox[{"A", "/.", "HumanFit"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "3"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "4"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "5"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"2", ",", "5"}], "]"}], "\[Rule]", " ", "0"}]}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.515862186585355*^9, 3.5158622015152087`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.19689396035823`", "0", "0", "0", "0"},
     {"0.20214668746590925`", "7.840374588741148`", "0.22483245436904015`", 
      RowBox[{"-", "0.8069757285872418`"}], "0.18712786224886793`"},
     {
      RowBox[{"-", "0.0828259043763153`"}], "13.315981803707265`", 
      "0.20729365656915424`", "4.154819403051306`", "0.2573791697685864`"},
     {
      RowBox[{"-", "0.3808535485970228`"}], 
      RowBox[{"-", "10.979481912107921`"}], 
      RowBox[{"-", "0.19665480379455527`"}], 
      RowBox[{"-", "0.42141500655251124`"}], "0.6584527300961083`"},
     {
      RowBox[{"-", "3.2612384489726334`"}], 
      RowBox[{"-", "8.089020891433405`*^-8"}], "5.819659430757449`", 
      "0.37746715739520986`", "3.023429559876836`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.5158621894385185`*^9, 3.5158622022592516`*^9}, 
   3.51594025068639*^9, 3.5159403030883865`*^9, 3.515940353719283*^9, 
   3.515971603045801*^9, 3.515972791988805*^9, 3.5159870316112647`*^9, 
   3.5159873995563097`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Afit.mat\>\"", ",", "Aout"}], "]"}]}], "Input",
 CellChangeTimes->{{3.515862231765939*^9, 3.5158622331000156`*^9}, {
  3.515940346451867*^9, 3.515940346730883*^9}}],

Cell[BoxData[
 FormBox["\<\"Afit.mat\"\>", TraditionalForm]], "Output",
 CellChangeTimes->{3.515862233560042*^9, 3.515940250850399*^9, 
  3.5159403031143885`*^9, 3.5159403537482843`*^9, 3.5159716031038046`*^9, 
  3.5159727920138063`*^9, 3.5159870316402664`*^9, 3.5159873995863113`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1078, 862},
WindowMargins->{{Automatic, 412}, {Automatic, 22}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 350, 6, 71, "Section"],
Cell[CellGroupData[{
Cell[942, 32, 2395, 53, 312, "Input"],
Cell[3340, 87, 1033, 17, 30, "Output"],
Cell[4376, 106, 1031, 17, 30, "Output"],
Cell[5410, 125, 1031, 17, 30, "Output"],
Cell[6444, 144, 1031, 17, 30, "Output"],
Cell[7478, 163, 1031, 17, 30, "Output"],
Cell[8512, 182, 1031, 17, 30, "Output"],
Cell[9546, 201, 1033, 17, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10616, 223, 2594, 70, 172, "Input"],
Cell[13213, 295, 3113, 82, 111, "Output"]
}, Open  ]],
Cell[16341, 380, 167, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[16533, 386, 14857, 395, 1113, "Input"],
Cell[31393, 783, 516, 11, 30, "Output"],
Cell[31912, 796, 1037, 27, 30, "Output"],
Cell[32952, 825, 1028, 26, 30, "Output"],
Cell[33983, 853, 1090, 28, 30, "Output"],
Cell[35076, 883, 1051, 27, 34, "Output"],
Cell[36130, 912, 6728, 115, 241, "Output"],
Cell[42861, 1029, 11970, 201, 228, "Output"],
Cell[54834, 1232, 12884, 217, 229, "Output"],
Cell[67721, 1451, 11017, 186, 241, "Output"],
Cell[78741, 1639, 6852, 117, 228, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85630, 1761, 111, 1, 31, "Input"],
Cell[85744, 1764, 1102, 21, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86883, 1790, 104, 1, 31, "Input"],
Cell[86990, 1793, 2955, 83, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89982, 1881, 236, 4, 31, "Input"],
Cell[90221, 1887, 215, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90473, 1896, 755, 22, 31, "Input"],
Cell[91231, 1920, 1493, 33, 100, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92761, 1958, 346, 8, 52, "Input"],
Cell[93110, 1968, 285, 4, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
